Tab Löschen, wenn String in Abfragebereich fehlt
Peter
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
Anzeige