Input box not working

[TheWennerWoman]

Not sure why this isn't working, MsgBox returns 2 if I enter 2 but the If statement isn't happy about it

Dim zinput As Double

here:
zinput = Application.InputBox("What type of journal do you want to create?" & vbCr & vbCr & _
"Enter 1 for a summary level journal" & vbCr & "Enter 2 for a detailed patient level journal" & vbCr, "Choose Journal Type", Type:=1)
MsgBox zinput
If zinput <> 1 Or zinput <> 2 Then
GoTo here ' keeps looping back to here: even when I enter 1 or 2 in the box?!
End If

 

[Fluff]

You need to change to Or to And.

 

[TheWennerWoman]

You need to change to Or to And.

Thanks so much, schoolgirl error

 

[Fluff]

You're welcome & thanks for the feedback.