Need help Selecting, Sorting, Autofitting a range

  • Thread starter Thread starter Mr. Clean
  • Start date Start date
M

Mr. Clean

Set rng = NwSht.Range("A1:G8", NwSht.Range("G65536").End(xlUp)).Select
rng.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
rng.Columns.AutoFit
NwSht.Range("A1").Select
NwSht.Activate

Not working, what am I doing wrong?

says object required on the first line above.
 
Get rid of the .Select at the end of the first line of code.
E.g.,

Set rng = NwSht.Range("A1:G8", NwSht.Range("G65536").End(xlUp))


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Back
Top