Alphabetical sort in a macro

[Guest]

 

[tony h]

need a bit of imagination to answer this on

 

[Guest]

Cells.Sort Key1:=Range("A1")

 

[Guest]

I thought i'd try the hard questions first.

Thanks Tom.

Regards

Richard.

 

[nhamilt]

I still can't figure out how to create a macro that will sort the same
information in the same way on multiple sheets in the entire workbook.
Possibly because I can't figure out how to select the whole workbook.

 

[Susan]

something like this (UNTESTED):

sub richard()

dim WS as worksheets
dim myLastRow as long
dim myRange as range

for each ws in activeworkbook
mylastrow = ws.cells(10000,1).end(xlup).row
set myrange = ws.range("a1:d" & mylastrow)
myrange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
next ws
end sub

this sets a range based on columns a - d, using A1 as the sort key.
adjust to suit. hope it gets you started. try recording a macro on
one of the sheets to get the sort options the way you want them, if
these don't work for you (regarding headers & such).

susan