Highlight selected Cells

[jimj]

Hello folks,

This is my first post so I ask that you be kind :-)

I have a worksheet that I want to highlight the selected cells to a different color and place a letter in column A to indicate that color for those that are color blind.

I am currently using the following code for this, which works well when the user selects a continuous set of cells. However, if they select a set of rows and then select another set of rows that are not continuous, I get less than satisfactory results. Any suggestions?

Private Sub ColorAvailable_Click()
    R = ActiveCell.Row 'First Row
    X = Selection.Rows.Count + R - 1 'Last Row of selection
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Do Until R > X
        Range("A" & R).Select
        ActiveCell.FormulaR1C1 = ""
        R = R + 1
    Loop
End Sub

[vlady]

Welcome to the forum, you've receive your answer in the proper forum but remember to put code tags around codes. We're glad you've joined.

Regards,
Vladimir