Writing an If Statement for group of cells
 

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

Writing an If Statement for group of cells
 

Larry,
Give this a try, it assumes that you protecting the Inventory worksheet.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

Sub BBB()
With Worksheets("Inventory")
If Application.CountA(.Range("oClearCells")) = .Range("oClearCells").Count Then
frmInventory.Hide
.Protect "xxxxxx"
Exit Sub
Else
MsgBox "Got some blanks "
End If
End With
End Sub
'------------

"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

Writing an If Statement for group of cells
 

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