SelectionChange stopped working

[Dav1d]

The code below created a new line below when a cell in column F was changed (a dropdown menu). I'm certain it was working perfectly but now it isn't.

Can someone anyone see a problem with the code, please?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
ActiveSheet.Protect AllowDeletingRows:=True
On Error GoTo 0
End If
Application.EnableEvents = True
End Sub

 

[Dav1d]

try setting a breakpoint on the first line of code inside the eventhandler.

Have you tried closing and reopening Excel?

That worked. Bah, now I'm embarrassed but I'm also very grateful.

Thank you!!!

 

[Hermanito]

What worked, the breakpoint or closing and reopening Excel?

 

[Dav1d]

The closing of Excel. Well, that was the last thing that I did before the macro worked again so I may well have been the combo.

But its running and I'm most content. Thank you