SELECT ACTIVE RANGE

[CJ]

Hi,
I'm trying to select an active range, after importing a text file,
it will always be a different range
I've tryed adapting code found through a search.

LastRow = Range("A1:G65536").End(xlUp).Row
Range("A1:G65536").Select.Range ("A1:G65536" & LastRow)

It's stopped with a debugger 424 error

Any idea's

Thanks

 

[Scott Huish]

Perhaps, something like this:

Sub test()
Dim lastRow As Long
lastRow = Range("A65536").End(xlUp).Row
Range("A1:G" & lastRow).Select
End Sub

 

[Norie]

I think this is the correct syntax fir you want.

LastRow = Range("G65536").End(xlUp).Row 
Range ("A1:G" & LastRow)

By the way why do you want to select the range? You don't need to select /activate ranges/worksheets etc to work with them.

 

[CJ]

SOLVED.........

Hi, Norrie , HOTPEPPER

Thanks for yor help, both worked fine.

PS Norie thanks you have helped me twice now Cheers, I'm 2/3 of the way
to acheiving my Goal fully automating a long and boring process picking a
text file from a server and producing numerous Pivot Table reports
THANKS