Icon Sets for Status Indicators

Sub AddIconSets()
    Dim dataRange As Range
    Dim iconSet As IconSetCondition

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

    If dataRange Is Nothing Then Exit Sub

    ' Clear existing conditional formatting
    dataRange.FormatConditions.Delete

    ' Add traffic light icon set
    Set iconSet = dataRange.FormatConditions.AddIconSetCondition

    With iconSet
        .IconSet = ActiveWorkbook.IconSets(xl3TrafficLights1)
        .ShowIconOnly = False  ' Show both icons and values

        ' Configure thresholds
        .IconCriteria(2).Type = xlConditionValuePercent
        .IconCriteria(2).Value = 33
        .IconCriteria(2).Operator = xlGreaterEqual

        .IconCriteria(3).Type = xlConditionValuePercent
        .IconCriteria(3).Value = 67
        .IconCriteria(3).Operator = xlGreaterEqual
    End With

    MsgBox "Icon indicators added successfully!"
End Sub