Prompt For Print Footer On Open

When a user Opens this particular Workbook I want them to put their name into an Input Box so that it appears on the Footer of each sheet. I have several Sheets in this particular Workbook. If they do not put there name in I want the workbook to close. I am having problems with the code I am using. Please see below:

Private Sub Workbook_Open()
Dim strName As String
strName = InputBox(Prompt:="Your Name Please.", _
Title:="Please Enter Your Name", Default:="Enter Name Here")

If strName = "Enter Name Here" Or _
strName = vbNullString Then
Exit Sub
Else: strName = vbNotNullString
Worksheets("Front Page").RightFooter = strName
End If
End Sub

As you can see I still need a code after the first IF statement to close workbook. My main issue is after the else.