Last Active Sheet in vba
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Set LstSht = Sh End Sub
Source: www.extendoffice.com
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Set LstSht = Sh End Sub