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" wrote in message
oups.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.