Hi Barb

You can use the counta function

Sub test()
If Application.WorksheetFunction.CountA(Range("Reuse_ Estimate")) = 3 Then
'Do nothing
Else
MsgBox "Please fill in all cells"
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Barb Reinhardt" wrote in message
...
I have a range of cells named "Reuse_Estimate" (B22:B24 in my worksheet) that
need to have something entered in all cells. Once a value is entered in all
cells, I need to check that the range named "Reuse_Total" is a specific
value. I have the code for the latter, but am not sure how to check that the
Reuse_Estimate ranges are not blank. Any suggestions?

Thanks