A Loop does not loop throught. It stops after two cells.

This first one works, but note the variable you use is not the same as the one you Dim:

Sub trialtest()
Dim Lr As Long

With Sheets("Weird2")
LR1 = .Cells(.Rows.Count, 1).End(xlUp).Row
MsgBox LR1           'Ans 23
End With
End Sub

Second one works fine. Third one works fine but, again, not the variable in the loop vs the variable Dimmed

Sub Trialtest3()
With Worksheets("Sheet1")
    LR2 = .Cells(.Rows.Count, 2).End(xlUp).Row
     For Y = 1 To LR2
        Debug.Print Y
     Next Y
End With
End Sub

This last one, copied from your post and edited counts from 1 to 24.


I'm not entirely sure what you're doing wrong. These all seem to work as expected, barring the incorrect variable usage. Use Option Explicit to avoid this issue.


Regards, TMS

No. You increment X from 1 to LR (24) and it will drop out of the loop when X is greater than 24. 25 is greater than 24 so it drops out of the loop and displays X = 25 and LR = 24. It has to increment X in order to test it against the upper limit.

It's rare that you would want to do anything with X once it has served its purpose as a loop counter.

Regards, TMS

You're welcome.