ich habe dieses Makro um zu prüfen ob eine der Sheets gerade aktiv sind.
If CInt(ActiveSheet.Name) >= "Rechnung Werk" And CInt(ActiveSheet.Name) MsgBox "aktiv"
Else
MsgBox "nicht aktiv "
End If
mfg philipp
Sub WelchesBlatt()
MsgBox ActiveSheet.Name
End Sub