If IsNumeric(Application.Parent.Name) Then
Peter
Warum bringt untenstehende Funktion einen Fehler, wenn der Tabellenname nicht numerisch ist?
Gruss, Peter
https://www.herber.de/bbs/user/80841.xlsm
Public Function TabName() As Long
Debug.Print Application.Caller.Parent.Name
If IsNumeric(Application.Parent.Name) Then
TabName = Application.Caller.Parent.Name * 1
Else
TabName = Application.Caller.Parent.Name
End If
End Function