What is wrong with this Do Until Loop? (simple)

[skendzie]

Thanks in advance for the time. I'm trying to set a Do Until loop and after the range sets, VBA just skips the loop. I want a macro that hides all "0" value columns. What's actually in the loop can be wrong as well, but I just want to know why VBA skips the loop.

My logic is that the range is E120. The loop should start at E120, offset, go to E121 and loop UNTIL E143. I don't get it

    Dim rng As Range    
    Dim col As Long
    
    
    Set rng = Range("E120")
    
    Do Until rng = Range("E143")
    col = rng
    If col = "0" Then hiderng.EntireRow.Hidden = True
            rng = rng.Offset(1, 0)
            Set rng = ActiveCell
        
    Loop

 

[mikerickson]

Set rng=ActiveCell

is your undoing. Get rid of it.

You are also going to have problems with the condition

Do Until rng = Range("E143")

That line is testing if the value in rng is the same as the value in Range("E143")

I suspect that you want

Do Until rng.Address = Range("E143").address

 

[skendzie]

Thanks for the reply! I've never heard of the .address. Got to keep studying!