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:

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

Alternatively, you could do this:

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

A Select Case would also be good for this:

Sub Adjust()
  Dim Pattern As Integer
  Pattern = Sheets("Info").Range("R7").Value
  Select Case Pattern
  Case 1, 4
    Call OneCrew
  Case 2, 5
    Call TwoCrew
  Case 3, 6
    Call ThreeCrew
  Case Else
    'None of the above, so continue without doing anything.
  End Select
End Sub