Macro to select all the filled cells in a worksheet?

[GS]

Rick Rothstein wrote on 7/7/2011 :

Wow! Thank you for your nice comments. I am speechless. All I can say is
thank you so much. I am glad that you (and Clif and hopefully others) are
finding my postings to be helpful in your own VB coding efforts.

Rick Rothstein (MVP - Excel)

Well, I can't tell you exactly how many lines of comment in my projects
sasy this...

'by Rick Rothstein

but it's quite a few. You truly inspire me towards bettering my
programming skills however I can! Thanks so much for that
inspiration...

 

[Victor Delta]

I'll just stick to Gord's macro for both Excel XP and 2003!

If I correctly understand what you want, then here is a one-liner (albeit
a long one) non-looping macro that I think does the same thing...

Sub PickedActualUsedRange()
Range("A1").Resize(Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row, _
Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Column).Select
End Sub

Rick

Very many thanks. Just back after a couple of days away so will give it a
run tomorrow.

Thanks again,

V

 

[Victor Delta]

Rick

Very many thanks. Just back after a couple of days away so will give it a
run tomorrow.

Perfect!

Many thanks again,

V