denke ein Problem noch für heute, dann sollte alles klappen
Quelle irgendwo aus Forum, Problem ist Zelle darf nie leer sein
denn dies ergibt Blattname wenn Abruch dann sollte "MUSTER"
in Zelle stehen oder auch wenn OK drückt alte Wert erhalten bleiben
bleibst jetzt stecken bei EXIT sub
Sub Name_Insert()
Dim sTxt As String
sTxt = InputBox("Bitte Modulname/Blattname eingeben:")
If sTxt = False Then Exit Sub
Range("O2").Value = sTxt
End Sub
gruss helena