kann mir bitte jemand sagen, wie der Code verändert werden muss wenn ich den Namen aus der Zelle A1 einbauen möchte? Das speichern unter mit dem Namen aus der Zelle A1 habe ich hinbekommen. Aber wie bringe ich diesen Namen nun in die MsGBox?
Sub MsgZeiteins()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Die Datei wurde unter dem Zellname aus A1 gespeichert", 1, "Speicherhinweis" _
Set objShell = Nothing
End Sub
Danke für Eure Hilfe und noch einen schönen Abend
Gruß
Thomas