Hi Larry,

Try something like:

'=============
Public Sub Tester001()
Dim rng As Range

Set rng = Range("B25:B47, B50:B61, B64:B66, B86:B94," _
& "B103:B112,B114:B114,B116:B118,B120:b122")

If Application.CountA(rng) = 0 Then
'Your code
Else
MsgBox "All the cells are not empty!"
End If
End Sub
'<<=============


---
Regards,
Norman


"Larry" wrote in message
...
I have a group of cells in a template, on the single cell I can run the
routine
If Worksheets("Inventory").Range("AG11") = "" Then
frmInventory.Hide
pswd.Protect "xxxxxx"
Exit Sub
End If
and it works great, but when I try to convert to cover several cells it
keeps on failing. The Range of Cells that I am trying to run a check on
a
B25:B47, B50:B61, B64:B66,
B86:B94,B103:B112,B114:B114,B116:B118,B120:b122,
etc. I named these group of cells oClearCells. Any help would be greatly
appreciated and very welcomed.

--
Larry E. Brueshaber