Complile error

[SWV]

Why do I keep getting an error with this code please?

Code: Select all

Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
Application.EnableEvents = False

    With ThisWorkbook.Sheets(Target.Worksheet.Name)
         
       
        If .Range("M2") >= 1 Then
            Call Macro1
                   
Application.EnableEvents = True
End Sub

[alrodopial]

Code: Select all

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
            With ThisWorkbook.Sheets(Target.Worksheet.Name)
                If .Range("M2") >= 1 Then
                    Call Macro1
                End If
            End With
        Application.EnableEvents = True
    End If
End Sub

[SWV]

Thank you very much alrodopial I really appreciate you taking the time to reply and write the code. I will try it tomorrow