Calling a Variable Subroutine

Greetings fellow VBA'ers. I am relatively new to VBA programming but am working on some VBA code for work. I am using Excel 2003, and have really been struggling with structuring nested if/then/else logic properly. I often get "End If without Block If" errors such as in the case below. Can somebody help me with the proper structure? Thanks in advance.

----------------------------------------
Yes, I know that the code is probably very inefficient. Right now, I'm just trying to get something that works.

Sub Adjust()
Dim Pattern As Integer
Pattern = Sheets("Info").Range("R7").Value
If Pattern = 1 Then Call OneCrew Else End If
If Pattern = 2 Then Call TwoCrew Else End If
If Pattern = 3 Then Call ThreeCrew Else End If
If Pattern = 4 Then Call OneCrew Else End If
If Pattern = 5 Then Call TwoCrew Else End If
If Pattern = 6 Then Call ThreeCrew Else End If
End Sub

Please read forum rules below and then wrap your code (rule 5)



VBA Noob

Since your If-Statements are on one line no "End if" is required. Since you are not doing anything for "else" else is also not required. This should work for you:

Please Login or Register  to view this content.

Alternatively, you could do this:

Please Login or Register  to view this content.

A Select Case would also be good for this:

Please Login or Register  to view this content.