versuche eine Arbeitsmappe zu kopieren und in einer neuen zu speichern.
Der Name steht in einer bestimmten Zelle der Arbeitsmappe.
wie geht denn so was?
Sub speichername_Zelle()
Dim str As String
str = Range("A1").Value & "" & Date
ActiveWorkbook.SaveAs str
End Sub
Sub SpeicherungSteffen()
Dim SpeicherName As String
SpeicherName = "E:\Daten\ " & Range("A1") & "_Protokoll"
ActiveWorkbook.SaveAs Filename:=SpeicherName
End Sub