Enable/Disable SelectionChange macro on-the-fly as needed

[RogerC]

I'm using this code provided by Marcelo Branco to visually highlight a cell when it becomes the active cell by changing its font color to orange, then changing the font color back to black when the user clicks elsewhere and the cell becomes non-active.

The SelectionChange event works great for this, but sometimes it becomes a nuisance when doing other things within the sheet. I would like to be able to disable this macro through a button as needed, then turn it back on (with the same button if possible) when it's needed again.

Can this be done?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Static PreviousCell As Range
    
    If Not Intersect(Target, Range("H:H")) Is Nothing Then
      If IsEmpty(Target) Then Exit Sub
      If PreviousCell Is Nothing Then
          Set PreviousCell = Target
          Target.EntireColumn.Font.ColorIndex = xlAutomatic
      Else
          PreviousCell.Font.ColorIndex = xlAutomatic
      End If
      Target.Font.ColorIndex = 46
      Set PreviousCell = Target
    Else
        Columns("H:H").Font.ColorIndex = xlAutomatic
    End If
End Sub

 

[Fluff]

How about

Private Sub CommandButton1_Click()
    Application.EnableEvents = Not Application.EnableEvents
End Sub

 

[RogerC]

Thank you for this suggestion, Fluff. Can you tell me where to place this code? In a Sheet Object, ThisWorkbook, or a Module?

Also, with this code assigned to a single button, will it turn on the SelectionChange macro if it is already in the off state and turn it off if it is already in the on state?

 

[Fluff]

If you use an activex button then it will need to go in the sheet module, but if you use a form control button then it needs to go into a normal module & you'll need to rename it. Like

Sub MyBtn()
    Application.EnableEvents = Not Application.EnableEvents
End Sub