Hello James,

'You can use .SELECT instead of Application.Goto
Application.Goto Range("A65536").End(xlUp).Offset(1)
or

Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)

I think it is faster than looping cells.


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"JStone0218" wrote in message
...
I need help modifying the following code:

Sub Test()

With ActiveSheet
Range("a" & ActiveCell.Row).Offset(1, 0).Select
End With

End Sub

I have data in column "a" and I need the code above to execute until it
reaches
the last row. The range is variable based on the data I import from
another
file. Is this doable?

Thanks,

James