Sorting left to right programatically

[jayklmno]

I can record the following macro...

Columns("AY:BE").Select
Selection.Sort Key1:=Range("AY1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

but I need the starting and end points of the sort to vary. When I assign
variables to the...

AY = colS
BE = colE
last row = endrow


Range(Cells(1, colS), Cells(colE, EndRow)).Sort
Key1:=Sheets(1).Range(Cells(1, colS)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


When this runs i get a Run Time Error 1004... so something's not pointing to
the right cell... what am I doing wrong?

 

[Bob Phillips]

Range(Cells(1, colS), Cells(colE, EndRow)).Sort _
Key1:=Sheets(1).Cells(1, colS), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlLeftToRight, DataOption1:=xlSortNormal

 

[FSt1]

hi
if everything is properly dim'ed then change this line
Range(Cells(1, colS), Cells(colE, EndRow)).Sort
to
Range(Cells(1, colS), Cells(EndRow, colE)).Sort

should work then

regards
FSt1

 

[CFS]

Try this:

colS = Columns("AY").Column
colE = Columns("BE").Column
EndRow = Range("AY65536").End(xlUp).Row

 

[jayklmno]

That did it... thanks! Note to self... row then column...