Arcticwarrio
Active Member
- Joined
- Dec 6, 2005
- Messages
- 439
Howdy ppl.
Somebody kindly pointed me to another thead which looks helpfull but i need to use text not numerics.
This is the code on the thead i was pointed to...
I have added or altered to BOLD bits
How do i tell it i want it to look for text?
Somebody kindly pointed me to another thead which looks helpfull but i need to use text not numerics.
This is the code on the thead i was pointed to...
I have added or altered to BOLD bits
Sub CheckCells()
Set RangeToFormat = Sheets("Sheet1").Range("CellsToCheck")
For Each cell In RangeToFormat
With cell
' Empty cells
If IsEmpty(cell) Then
.Interior.ColorIndex = xlNone
' Numeric cells
ElseIf IsText(cell.Value) Then
Select Case cell.Value
Case Is = "Invoice"
.Interior.ColorIndex = 7
Case Is = "WIP"
.Interior.ColorIndex = 4
Case Is = "Stock"
.Interior.ColorIndex = 9
Case Is = "Quote"
.Interior.ColorIndex = 10
Case Is = "on hold"
.Interior.ColorIndex = 11
End Select
Else
.Interior.ColorIndex = xlNone
End If
End With
Next cell
End Sub
How do i tell it i want it to look for text?