Toggle button to turn off conditional formatting

[butters149]

Hi everyone,

I have the below macro which is a conditional format for certain cells, that is part of a larger macro. I am just wondering if there is a way to also insert a toggle button via active X I am thinking to be able to turn this function on and off?? If so, what code should I add to my macro?

Thank-you,

Range("E2:J2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J2>60"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Range("A1").Select

 

[butters149]

i also created the below macro to insert the command button as well as linking it to remove conditional format for entire sheet. Is this correct?

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+n
'
'Inserting Command button
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=1173.75, Top:=48, Width:=72, Height:=24 _
).Select

'Linking button to remove conditional formating
Private Sub CommandButton1_Click()
Cells.FormatConditions.Delete
End Sub


End Sub