Dynamic selection

[Eurekaonide]

Hi All

I have a range that I want to select it starts in column J3 and goes out to column CO. I want it to select it to the bottom and I have tried various things but its not working please help.

I had this but it might go beyond row 33 at some stage but it does work
Set rng = Range("J3:CO33")

I tried this and it didnt like it
Set rng = Range("J3:CO3").Select
Range(Selection, Selection.End(xlDown)).Select

Thanks in advance

 

[dreid1011]

Okay, if column J will always have data, try this change:

Lrow = Cells(Rows.Count, 10).End(xlUp).Row
LColumn = Cells(3, Columns.Count).End(xlToLeft).Column

Set rng = Range(Cells(3, 10), Cells(Lrow, LColumn))

 

[dreid1011]

Thanks I finally resolved it like this:


Sheets("Gannt (4)").Select

Application.ScreenUpdating = True

Dim Lastrow As Long
Lastrow = ActiveSheet.Range("J3").CurrentRegion.Rows.Count

Dim Rng As Range


Set Rng = Range("J3:CO" & Lastrow)

Okay, glad you got it sorted.