Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname "" Then
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\Eigene Dateien\Muster\Datenblätter\" & Dname & ".xls"
Else:
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\Eigene Dateien\Datenblätter\Ohne Name " & Dname & ".xls"
End If
End Sub
Danke schon einmal im voraus
Vaneo