VBA code shows "Else without if error"

Question

I have been trying to fix it but was not able to, although it's a very small code: Please help, it's showing an "else without if" error:

Private Sub Workbook_Open()

Line2:
    Dim pass As String
    pass = InputBox("Enter Password")
    If pass = "hummer" Then GoTo Line1
    Else
    GoTo Line2
    End If

Line1:
    End Sub

Alex K. · Accepted Answer · 2014-04-08 11:02:35Z

2

You can do this more concisely and avoid using GOTO to control the flow of the program (which is generally a good idea) with a simple loop;

Dim pass As String

Do
    pass = InputBox("Enter Password")
    If pass = "hummer" Then Exit Do
Loop

answered Apr 8, 2014 at 11:02

Alex K.

177k32 gold badges276 silver badges299 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

L42 Over a year ago

Certainly the simplest way there is.

L42 · Accepted Answer · 2014-04-08 13:24:15Z

0

The problem is you used a one liner IF statement.
Try this:

    If pass = "hummer" Then 
        GoTo Line1
    Else
        GoTo Line2
    End If

There are 3 ways to contruct IF statement.
One is the One Liner Construct as I've mentioned above, which does not require to be terminated with End If.

Example:

If pass = "hummer" Then GoTo Line1 Else GoTo Line2

Second is the End If Terminated Construct. Example of which is what I posted above.
Third one is the If-EsleIf-Else End If terminated constuct if you have multiple conditions.

Example:

If pass = "hummer" Then 
    GoTo Line1 
ElseIf pass = "something_else" Then
    GoTo Line2
Else
    GoTo Line3
End If

Hope this helps.

edited Apr 8, 2014 at 13:24

answered Apr 8, 2014 at 5:31

L42

19.8k11 gold badges47 silver badges70 bronze badges

Collectives™ on Stack Overflow

VBA code shows "Else without if error"

2 Answers 2

1 Comment

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related