Custom Formula Conditional Formatting

Sub CustomFormulaFormatting()
    Dim dataRange As Range
    Dim formulaCondition As FormatCondition
    Dim formula As String

    ' Select the data range
    Set dataRange = Application.InputBox("Select range for custom formatting:", Type:=8)

    If dataRange Is Nothing Then Exit Sub

    ' Get custom formula from user
    formula = InputBox("Enter formula (use relative references, e.g., =AND(A1>100, B1<50)):", "Custom Formula")

    If formula = "" Then Exit Sub

' ... 17 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io