Dim ПредыдущийАктивнйЛист as worksheet
Set ПредыдущийАктивнйЛист = activesheet 'запомнить текущий активный лист
..... ' тут уходим с текущего листа и делаем что-то
ПредыдущийАктивнйЛист.activate 'активируем предыдущий активный лист если нужно

Public ПредыдущийАктивнйЛист As Worksheet

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set ПредыдущийАктивнйЛист = Sh 'запомнить текущий активный лист
End Sub

Sub ПроцедураПереходаНаПредыдущийЛист()
ПредыдущийАктивнйЛист.Activate 'активируем предыдущий активный лист если нужно
End Sub