Hallo, ich habe sicher eine einfach Frage, die schnell zu beantworten ist. Ich finde aber leider keine Lösung.

Ich benötige ein Marko-cCde, um eine ausgewählte Form zu benennen.

Also habe ich:

Sub Form_benennen()
  Dim s As Shape
  Dim Wert As String

  s = Selection
  Wert = InputBox("Gib einen Namen ein:", , s.Name)
  If Wert <> "" Then
     s.Name = Wert
     s.Visible = True
  End If

End Sub

Besten Dank schon mal vorab!