Pop up mit Name/Ergänzung | Herbers Excel-Forum

Hallo zusammen,
in einem Beitrag (der aber mittlerweile im Archiv ist - wenn ich das richtig begriffen habe) hatte ich um eine "VBA-hilfe" gebeten (Abfrage nach Vorname - dann PopUp mit hallo Vorname).
Das Script habe ich hier auch bekommen - und in mein vorhandenes Script eingefügt. Funktioniert nur leider nicht :-(. Die Vornamen-Abfrage kommt - aber leider kein "PopUp mit Hallo Vorname" dann...
Jemand noch einen Tipp für mich?
Danke
Fabio

Private Sub Workbook_Open()
ActiveWorkbook.UpdateRemoteReferences = False
Dim dname As String
dname = InputBox("Wie heisst Du denn? ", "NAME ??")
If dname = "" Then
Do
dname = InputBox("Wie heisst Du denn? ", "NAME ??")
Loop Until (dname <> "")
MsgBox "Hallo " & dname
End If
End Sub