Hi I am learning to use macro's and am having trouble determining the formula
to put in a macro. ( I only have two variables and I know that conditional
formatting can do this but I am trying to learn what to do.) My variables
are that the cell would contain either more than 4 digits or that it would
contain the word "workbook".

How do I write the formula to put into this formatting macro?

Thanks.

Sub ColorRowBasedOnCellValue()
'David McRitchie, 2001-01-17 programming -- Color row based on value
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim cell As Range
For Each cell In Intersect(Selection, ActiveCell.EntireColumn, _
ActiveSheet.UsedRange)
Select Case cell.Value
Case Is = "workbook"
cell.EntireRow.Interior.ColorIndex = 20
Case Is = 40
cell.EntireRow.Interior.ColorIndex = 37
End Select
Next cell
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
End Sub