Or another way...

Sub DoSomething()
If Application.CountA(Range("B5:F5")) = 0 Then
Range("B5:F5").Interior.ColorIndex = 15
Else
Range("B5:F5").Interior.ColorIndex = xlColorIndexNone
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Theo"
wrote in message
This works fine:
If IsEmpty(cll.Offset(0, 1)) Then cll.Offset(0, 1).Interior.ColorIndex = 6 _
Else: cll.Offset(0, 1).Interior.ColorIndex = xlNone

I want to do the same thing but for a range of cells in the row (from colum
R to column V, for example - check to see if they are ALL empty and then
highlight ALL of them, if so).
Any help is much appreciated .