Hi all

I am complete novice when it come to macros in excel but I am trying t
learn! I have been trying to get a loop macro to work to delete cell
which are blank. But it just keeps deleting and does not stop whe
there is some content in the cell.
HEre is the code! What am I doing wrong?

Sub Macro2()

Do
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Loop Until a1 0

End Su

--
jim2

-----------------------------------------------------------------------
jim27's Profile: http://www.excelforum.com/member.php...fo&userid=1537
View this thread: http://www.excelforum.com/showthread.php?threadid=26996