macro empty cells

[max_max]

Hello,
this part of the macro does not work:

If Range ("A2: A100) =" "Then
MsgBox "empty cells", vbCritical + vbOKOnly, "Attention!" 
Exit Sub
end If

If the range A2: A100 is empty warning "empty cells."
A help?
max_max

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[max_max]

O.k. correct
max_max

[zbor]

Try

If Worksheetfunction.Counta(Range("A2:A100)) = 0 Then
MsgBox "empty cells", vbCritical + vbOKOnly, "Attention!" 
Exit Sub
end If

[max_max]

Hello,
zbor is o.k thanks.
A greeting.
max_max

[zbor]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.