Script picks wrong cell

[realniceguy5000]

Hi, I have an odd problem I have used this method in the past to loop though a range of cells however this time it is not working.

Here is the part that is causing the issue.

Sub Sortme()
Dim R As Range
Dim Cell As Object
Dim Lastrow As Long
Dim S As String
 
Lastrow = Range("AG65000").End(xlUp).Row
 
Set R = Range("AG2" & Lastrow)
For Each Cell In R
Cell.Select 'remove after
    S = Cell.Value
    S = Left(Cell, 20)
 
    Next Cell
 
End Sub

The code should select AG2 and work down to the lastrow with data. Last row picks the correct lastrow but Cell. select picks Cell AG2100 to start?

Any Ideas: Thank You, Mike

 

[SteveO59L]

Set R = Range("AG2" & Lastrow)

should be

Set R = Range("AG2:ag" & Lastrow)

 

[VoG]

Perhaps

Sub Sortme()
Dim R As Range
Dim Cell As Object
Dim Lastrow As Long
Dim S As String
 
Lastrow = Range("AG" & Rows.Count).End(xlUp).Row
 
Set R = Range("AG2:AG" & Lastrow)
For Each Cell In R
    S = Cell.Value
    S = Left(Cell, 20)

Next Cell
End Sub

Note that nothing is being done with S.

 

[somnath_it2006]

I think like this:

Sub Sortme()

    Dim R As Range
    Dim Cell As Range
    Dim Lastrow As Long
    Dim S As String
 
    Lastrow = Range("AG65000").End(xlUp).Row
 
    Set R = Range([COLOR="Red"][B]"AG2:AG"[/B][/COLOR] & Lastrow)
    
    For Each Cell In R
        Cell.Select 'remove after
        S = Cell.Value
        S = Left(Cell, 20)
    Next Cell
 
End Sub

 

[realniceguy5000]

I see said the blind man... Simple mistake. Thanks for your help.