Etwas alt bekanntes.
ich finde den Link nicht, der zur Angabe führt wie ich einen Zelleninhalt auslesen kann und diesen Text als Dateinamen zum Speichern verwenden kann.
Schönes Wochenende wünscht Urs
Sub Speichern()
ThisWorkbook.SaveAs _
FileName:=Range("A1").Value
End Sub