Can someone help me with this? I'm got this information from another post and trying to use it. I need to color all of the entries that begin with "HQARM 3" "HQARM 4" "HQARM 8" "HQARM 9" any suggestion will be greatly appreciated.
If Left(ActiveCell, 7) = "HQARM 3" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 4" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 8" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 9" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 3" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 4" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 8" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
If Left(ActiveCell, 7) = "HQARM 9" Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid