Mir würde es erst mal schon reichen, den Dateinamen als MsgBox angezeigt zu bekommen.
ich hab mal ein bisschen mit dem folgenden rumprobiert... klappt nur leider nicht... ;-(
Dim Name As String
Set Name = ActiveWorkbook.Name
MsgBox Name
Sub XX()
Dim MyName As String
MyName = ActiveWorkbook.FullName
MsgBox MyName
End Sub
oder Sub YY()
Dim MyName As String
MyName = ActiveWorkbook.Name
MsgBox MyName
End Sub