to check if any cell is empty

[cshetty]

Dear All

My present code calls a Macro even if one cell is non empty.

Sub EmptyCell()
    If Range("D9") = Empty And Range("D11") = Empty And Range("D15") = Empty And Range("D22") = Empty Then
    MsgBox "Empty Cells"
    Else
Call PrintMatters
    End If
 
End Sub

I want to call the macro Printmatters only if all the ranges mentioned in the code is filled. If any one cell is empty it should not call the macro.


Thank you

 

[footoo]

If you are going to call out to the Evaluate function (its square bracket form) to get the cell values, why not let it do all of the work...

Why not indeed.

 

[dmt32]

dmt32
Why create a UDF that does the same thing as COUNTA ?

Post was directed at OP as another alternative to consider.

Dave

 

[cshetty]

Sir Rick

Thanks

Much simpler and shorter code

Thank you sir