thank you your code helped me
rozent

"Norman Jones" wrote:

Hi Rozent,

Try something like:

'=============
Public Sub Tester001()

If Application.CountA(ActiveCell(1, 2).Resize(1, 4)) Then
MsgBox "Some content!"
Else
MsgBox "Empty!"
End If
End Sub
'<<=============

---
Regards,
Norman



"?????" wrote in message
...
if the 4 right celles from the pointer containe something
then ___ else ____
for example
if the activecell is h10 and the range h10:L10
containes something then do ___ else do ___

what is the macro

thank you
rozent