Change cell color by single click

[comicwizard]

I want to click on a cell and have the color change. There is a cell range I want this to be in and not the whole work sheet.

I have some code which was given to me but doesn't include a range. and I want a different color but having a hard time finding the color codes.
If I could have different coding that would be great. thanks


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Interior.ColorIndex = xlNone Then
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Selection.Interior.ColorIndex = xlNone
End If

End Sub

 

[tweedle]

Welcome!!

Here's a slightly different version:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Using a rectangle of cells
Set Rng = Range("G4:H20")
 
'Alternate Method using non-contigous cells
Set Rng = Union(Range("B5:C6"), Range("G4:H20"))
 
Set isect = Application.Intersect(Target, Rng)
If isect Is Nothing Then
    ' Not a Qualified Range
Else
    desiredcolor = 44
 
    If isect.Interior.ColorIndex <> desiredcolor Then
        isect.Interior.ColorIndex = desiredcolor
    Else
        isect.Interior.ColorIndex = xlNone
    End If
End If
End Sub

and this will list the options for ColorIndex (desiredcolor above)

Sub EnumColorIndex()
Set wsnew = Sheets.Add
wsnew.Activate
For x = 1 To 56
    Cells(x, 1).Interior.ColorIndex = x
    Cells(x, 1) = x
Next
End Sub