Multiple If statements in one macro

[sobeleg]

I am try to make it so when a certain number is entered into a box, and a button is clicked, it will take you to a different place depending on what number was entered. I keep getting various errors when writing this in Visual Basic such as "Block If without End If," :End if withou block if" Else without if. and "Run-time error '13': type mismatch."

As of now this is what I have:

Sub Testbutton()
'
' If "D8"=011 Then
' Application.Goto Reference:="R28C1"
' If "D8"=701 Then
' Application.Goto Reference:="R86C1"
' End If
End Sub

Any help would be greatly appreciated.

 

[sobeleg]

Thank you for all your help. I have one final question. I need to add a second reference on the sheet so it scrolls below the destination and back up to it, so It will work regardless of where the cursor previously was. How do I add that second range to:

Case 11: Application.Goto Reference:="Frozen!R28C1"

I am looking to add R3C1 to the end of this but I am not sure how to.

Thanks

 

[p45cal]

Case 11: Application.Goto Reference:="Frozen!R28C1",Scroll:=True
?

 

[sobeleg]

Case 11: Application.Goto Reference:="Frozen!R28C1",Scroll:=True
?

That does not seem to work. I need the macro to eventually end at R3C1 but I want it to go down to at least R28C1 before hand.

 

[p45cal]

Case 11: Application.Goto Reference:="Frozen!R3C1",Scroll:=True

 

[sobeleg]

that was it! Thanks!