Ostatni aktywny arkusz w VBA

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set LstSht = Sh
End Sub
Comfortable Copperhead