End If without block if

[Rubber Beaked Woodpecker]

Any reason I get the error End If without block if with the following code?

TIA

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count <> 16 Then Exit Sub

Application.EnableEvents = False

         Range("X1").Value = True
           Call NextAvaliableCol
        End If
    End If
End Sub

Application.EnableEvents = True
End Sub

 

[Fluff]

Remove these two lines

    End If
End Sub

 

[RoryA]

And the End If above those two.

 

[Fluff]

Oops, missed it was a one line If.

 

[Rubber Beaked Woodpecker]

Then the code does not call the Macro

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count <> 16 Then Exit Sub ' Only run on price data refresh

Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event

         Range("X1").Value = True
           Call NextAvaliableCol
           

Application.EnableEvents = True 'Turn on events again
End Sub

 

[Fluff]

That code will only run if you select 16 columns.