loop until certain row

[ApolloID]

Hi, i need to loop a code until row 1500, and then to stop.

How can i do this?

Thanks!

 

[littleiitin]

Sub FixedRowCounter()
    Dim rngCell     As Range
    
    For Each rngCell In Range("A1:A1500")
        ' Your Code Here
    Next
End Sub

 

[Michael M]

Up or Down ??

for r = 1 to 1500 step 1
your stuff
next r

OR

for r = 1500 to 1 step -1
your stuff
next r

Or, provide a few more clues on what you want to do in the loop, because it could be a Do Loop or a While / wend

 

[ApolloID]

Hi, this was my code:

Sub Loop1()
    Do
    ActiveCell.RowHeight = 216
    ActiveCell.Offset(3, 0).Select
ActiveCell.RowHeight = 216
    Loop Until .......
End Sub

I need to set the hight of rows to 216, from three to three rows.

Thanks!

 

[Michael M]

what about

Sub hite()
    With Rows("1:1500")
       .RowHeight = 216
    End With
End Sub

 

[ApolloID]

Thank you all.

Thanks!