Try

If IsError(.Range("1:1").SpecialCells(xlCellTypeBlank s).Cells
(1)) = False Then


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Markus Scheible" wrote in message
...
Hi again,

why doesn't work this:

If IsError(.Range("1").SpecialCells(xlCellTypeBlanks) .Cells
(1)) = False Then

When I run the macro I get the error note "no cells were
found. run-time error 1004" because the range is filled up
and the macro stops instead of running the else command

Thanks a lot for your help and best regards

Markus