Sort Method question

[CG Rosén]

Good Day Group,

Below code works fine as long Sheet(3) is active. How to
write the code to work also when another WorkSheet is
the active sheet.? Is that possible?

Brgds

CG Rosén

Sheets(3).Columns("O:U").Sort Key1:=Range("O1"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

 

[keepITcool]

like this it should work..

Since you do not define the parent of sheets(3)
if will run on the ACTIVEworkbook.


WITH Sheets(3).Columns("O:U")
.Sort Key1:= .Cells(1), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
END WITH


keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

 

[Nigel]

Try......

ActiveSheet.Columns("O:U").Sort Key1:=Range("O1"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

Cheers
Nigel