Angenommen, mein Code stoppt in untenstehendem Privat Sub (Debugger).
Kann ich im Direktbereich abfragen, was der Name des Objects Sh ist?
Gruss, Peter
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Index" Then GoTo SkipIt
Sh.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
SkipIt:
Exit Sub
End Sub