I am using the following the line of code in a macro

Do Until Activecell = ""

I then use the Offset command to move down cells in the
spreadsheet. Some of these cells have data hard coded
into them and others have a link to another worksheet
within the spreadsheet. If the linked cell has no value,
ie completely blank, then the cells I am checking have
a 'blank' value. when the above code gets the the linked
cell it assigns a value of '0' (zero) and doesn't
recognise is as "". I can't use

Do Until Activecell = 0

as some of the hard coded cell have a value of '00000'
which again is recognised as '0' (zero).

I have tried various combinations to try and resolve but
am not having any joy, can anyone help with what should be
a very simple problem.

Would it work if you used :-

Do Until (Activecell = "") OR (Activecell.Value = 0)


Sean
"Just press the off switch, and go to sleep!"

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

No, as some of the cell have '00000' hard coded into them
which is recognised as '0'


-----Original Message-----
Would it work if you used :-

Do Until (Activecell = "") OR (Activecell.Value = 0)


Sean
"Just press the off switch, and go to sleep!"

*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.

Use something like this choosing a suitable column :-


Code
-------------------

lastrow = ActiveSheet.Range("A65536").End(xlUp).Row
For rw = 1 To lastrow
'-etc
Next

-------------------


--
Message posted from http://www.ExcelForum.com

If the cells actually appear blank then you can do

do Until ActiveCell.Text = ""

However, a cell linked to a blank cell usually displays zero.

you might use

do until ActiveCell.Hasformula and ActiveCell.Value = 0

If you have zero values suppressed with Tools=Options=View tab, then the
first method will work with linked cells (even though they have a value of
zero).



--
Regards,
Tom Ogilvy

"MIKEYMAY" wrote in message
...
No, as some of the cell have '00000' hard coded into them
which is recognised as '0'


-----Original Message-----
Would it work if you used :-

Do Until (Activecell = "") OR (Activecell.Value = 0)


Sean
"Just press the off switch, and go to sleep!"

*** Sent via Developersdex http://www.developersdex.com
***
Don't just participate in USENET...get rewarded for it!
.

See one more suggestion at your other thread.

Mikeymay wrote:

I am using the following the line of code in a macro

Do Until Activecell = ""

I then use the Offset command to move down cells in the
spreadsheet. Some of these cells have data hard coded
into them and others have a link to another worksheet
within the spreadsheet. If the linked cell has no value,
ie completely blank, then the cells I am checking have
a 'blank' value. when the above code gets the the linked
cell it assigns a value of '0' (zero) and doesn't
recognise is as "". I can't use

Do Until Activecell = 0

as some of the hard coded cell have a value of '00000'
which again is recognised as '0' (zero).

I have tried various combinations to try and resolve but
am not having any joy, can anyone help with what should be
a very simple problem.

--

Dave Peterson