I posted this in general but, as someone pointed out, this would be a better place.
I apologize for double posting.
So I searched the net and the forum and I obtained the code and how-to so that I could use more than 3 conditional formats but I need some help expanding the code.
(I am trying to also figure out how to change my column labels from numbers back to letters.)
Instead of 1 column, I need to do it in three columns.
Here is the original code (thank you very much!)
Do I just repeat this for each column?
____________________________________________________________
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WatchRange As Range
Dim CellVal As Integer
If Target.Cells.Count > 1 Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
CellVal = Target.Value
Set WatchRange = Range("D7:D500")
If Not Intersect(Target, WatchRange) Is Nothing Then
Select Case CellVal
Case 0.1 To 32.47
Target.Interior.ColorIndex = 5
Case 32.48 To 58.63
Target.Interior.ColorIndex = 10
Case 58.64 To 70.19
Target.Interior.ColorIndex = 6
Case 70.2 To 77.71
Target.Interior.ColorIndex = 46
Case 77.72 To 100
Target.Interior.ColorIndex = 45
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub
Bookmarks