Checking for Empty Scattered Cells

I'm basically looking to repeat this process for many differnt cells on
the same sheet. But there is no order to the cells I want to apply it
threw.

Suggestions?

If IsEmpty(Cells(20, 3)) Then
MsgBox "C&C Press. Zone not filled out on Input Sheet!"
errors = True
Exit Function
End If

Dim rng as Range
set rng = Range("A1:A10,B9,C11,F3:M3,G9")
if application.CountA(rng) < rng.count then
for each cell in rng
if isempty(cell) then
msgbox cell.Address & " is empty"
end if
Next
End if

--
Regards,
Tom Ogilvy

"Kevin O'Neill" <ire.kevin@gmail.com> wrote in message
news:1135188361.614031.112730@g43g2000cwa.googlegroups.com...
> I'm basically looking to repeat this process for many differnt cells on
> the same sheet. But there is no order to the cells I want to apply it
> threw.
>
> Suggestions?
>
> If IsEmpty(Cells(20, 3)) Then
> MsgBox "C&C Press. Zone not filled out on Input Sheet!"
> errors = True
> Exit Function
> End If
>

Thank you, works like a charm.