das sind meine Zeilen, damit wird der Name der Speicherung festgelegt.
Wo kann ich die Meldung einfügen, damit nur gültige Namen hinterlegt werden,
also kein Doppelpunkt oder / Strich ect., damit ein Hinweis für das
Speichern mit einem RICHTIGEN Namen erfolgt !
If TBName = "" Then Exit Sub
WBName = InputBox(Chr(13) & Chr(13) & _
"JETZT im blau makierten Feld Kunden-Name eingeben: " & Chr(13) & Chr(13) & _
" NUR Namen !", _
"Kunden-Namen für Datei >", tan & ".xls")
ActiveSheet.Range("D1") = WBName
mfg
sigrid