VBA Shortcut for Conditional Format Function

[thewiseguy]

Hi all - I am curious to know if there is a way to create a button that will execute a shortcut to an existing function?

Conditional Formatting --> Highlight Cells Rules --> Text That Contains

I am using this function quite a bit and would love it, if there was a way to make this a "1-click" process

Any help or direction would be greatly appreciated!

 

[Logit]

I ran the macro recorder, then made a few edits :

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.FormatConditions.Add Type:=xlTextString, String:=xlCellValue, _
        TextOperator:=xlCellValue
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

[horgor]

I ran the macro recorder, then made a few edits :

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.FormatConditions.Add Type:=xlTextString, String:=xlCellValue, _
        TextOperator:=xlCellValue
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Keep in mind, as always, that executing any function with VBA eliminates UNDO Cntl-Z possibilities... even if just using VBA, since Excel appears to lacks a keyboard shortcut, to open the Conditional Format Manager... just say'n...