Block Error without End If

[cdurfey]

I keep getting this error when running the following code. Please help. Thanks

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("B1")) Is Nothing Then


Dim myMSG As String


myString = "***Processing Customer Reports***"
mystring2 = "***Complete***"
Application.StatusBar = myString


'Turnoff Monitor updates


Application.ScreenUpdating = False


Application.DisplayAlerts = False


' Run # of Days of reports selected by User
 
If Target.Value = "1" Then
    Sheets("General Information").Select
    Application.Run "PERSONAL.XLSB!Customer_1_Day"
End If
 
If Target.Value = "2" Then
    Sheets("General Information").Select
    Application.Run "PERSONAL.XLSB!Combine2"
End If
 
If Target.Value = "3" Then
    Sheets("General Information").Select
    Application.Run "PERSONAL.XLSB!Combine3"
End If
 
If Target.Value = "4" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine4"
End If
 
If Target.Value = "5" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine5"
 End If
 
If Target.Value = "6" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine6"
End If


If Target.Value = "7" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine7"
End If
 
If Target.Value = "8" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine8"
End If
 
If Target.Value = "9" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine9"
End If


If Target.Value = "10" Then
     Sheets("General Information").Select
     Application.Run "PERSONAL.XLSB!Combine10"
End If
    
Application.ScreenUpdating = True


Application.StatusBar = False
    
End Sub

 

[cdurfey]

FYI I have tried using ElseIf statements with the same results. Thanks

 

[Fluff]

You need to add another End If just before the End Sub

 

[PatOBrien198]

Your very first "IF" has no End IF

If Not Intersect(Target, Range("B1")) Is Nothing Then

 

[cdurfey]

Thank you for the help. Did not see that one.

 

[Fluff]

Glad we could help & thanks for the feedback

 

[Fluff]

For reference, if you were willing to rename
Customer_1_Day macro to
Combine1
You could rewrite you event as follows

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B1")) Is Nothing Then
    
        Dim myMSG As String
        
        myString = "***Processing Customer Reports***"
        mystring2 = "***Complete***"
        Application.StatusBar = myString
        
        
        'Turnoff Monitor updates
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        
        Sheets("General Information").Select
        Application.Run "PERSONAL.XLSB!combine" & Target.Value
        
        Application.ScreenUpdating = True
        Application.StatusBar = False
    End If
End Sub