Data Bars for Quick Comparison

Sub AddDataBars()
    Dim dataRange As Range
    Dim dataBar As Databar

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

    If dataRange Is Nothing Then Exit Sub

    ' Clear existing conditional formatting
    dataRange.FormatConditions.Delete

    ' Add data bars
    Set dataBar = dataRange.FormatConditions.AddDatabar

    ' Configure data bar appearance
    With dataBar
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
        .BarColor.Color = RGB(91, 155, 213)  ' Blue bars
        .ShowValue = True  ' Show values alongside bars
        .BarFillType = xlDataBarFillSolid
    End With

    MsgBox "Data bars added successfully!"
End Sub