Receiving an End If without block If error

[jbunn]

Hi - Can anyone clarify why I am recieving the "End if without block if" error . See code below. Essentially, based on a cell value trigger, I am trying to change a worksheet name.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Dim ws As Worksheet
If Target.Address = "$A$1" And Target = "Interface" Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "Co. Desc Category - Pick List" Then ws.Name = "co_desc_category_code_interface"
End If
Next ws
ElseIf Target.Address = "$A$1" And Target = "Client" Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "co_desc_category_code_interface" Then ws.Name = "Co. Desc Category - Pick List"
End If
Next ws
End If

 

[Jonmo1]

A couple of your IF's are NOT block IF's..They are one liners..

When the The Action If True is written on the Same line as the If Expression.
This syntax does not have an End If

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub '<- Action if true written on same line, No End If used.

You only use End if when the Action if true is written on new line like this one

If Target.Address = "$A$1" And Target = "Interface" Then
        For Each ws In ActiveWorkbook.Worksheets '<-Action if True is written on a new line, End If is required.
End If

 

[jbunn]

Thanks. I removed a couple of End If's and it worked!

 

[Jonmo1]

Glad to help, thanks for the feedback.