Use something like this chick-racer

If Application.WorksheetFunction.CountA(rng) = 0 Then MsgBox "empty"

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"chick-racer" wrote in message ...

I'm wondering if the IsEmpty() checks the entire range that i've
specified.? I am trying to generate a check for empty ranges where
there should be data...here's what i have so far...
(checks every 11th row after the first one)

For J = 12 To 608
Set rng = Range("D" & J, "O" & J)
If IsEmpty(rng) = True Then
MsgBox "no values entered for analyte on line " & J
Exit Sub
Else
J = J + 10
End If
Next J

I just cannot get this to work, any suggestions?
thanks!


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/