unwanted message box

I am tring to make a code that will ask the user when the file is opened to enter there name, only if there is no user already entered for Responsiblity of the file

but after the code is run it asks me to "Put Your Code Here" with a message box & OK button

Private Sub Workbook_Open()

Dim Name As String
 
If Range("d2").Value = "" Then Range("d2").Value = InputBox(Prompt:="Enter your name here if You are Responsible for Pasting this data into the project Plan Sheets (DGN'S)", Title:="ENTER YOUR NAME", Default:="")
End Sub