Hallo zusammen
Ich habe verschiedene Hilfsmakros, die ich gerne in Word und Excel einsetzen würde. Doch wie mache ich das, wenn der Code unterschiedlich ist.
siehe Beispiel:

Sub ySu_Word_Excel_prüfen()
Select Case Application.Name
Case "Microsoft Excel":
MsgBox "Fall Excel" & vbLf & ActiveWorkbook.Name
Case "Microsoft Word"
MsgBox "Fall Word" & vbLf & ActiveDocument.Name
End Select
End Sub

In Excel gibt es Fehler (Variable nicht definiert) wegen ActiveDocument.Name in Word wegen ActiveWorkbook.Name, obwohl beide gar nie eintreffen können.
Gibt es da einen Trick.
mfg Pepi