andy

Sub selectrange2()
''from top of column A to bottom of used range in column A including blanks
Range("A1").Select
Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Select
End Sub


Sub selectrange1()
''from activecell in any column to bottom of used range in column including
''blanks
Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Select
End Sub

Gord Dibben Excel MVP

On Fri, 2 Jul 2004 08:37:37 -0500, andycharger
wrote:

Simple answer im sure but it is Friday!!!!

Hi,

Im trying to select a range.

i.e Range("A1:A23456").select

however, the last cell will change as the range grows. I need to find
the last used cell for my range to replace A23456 everytime I run the
macro.

Can someone quickly write me the code to find the last cell for my
range?

Cheers.

Andy


---
Message posted from http://www.ExcelForum.com/