With a cell selected in a bold header row, clcking the 'Sort Ascending'
button on the toolbar does exactly what I want.

It would be great to be able to put something this into a macro

Cells(2, 3). Sort, Order1:=xlAscending

but if I record a particular situation I get

ActiveCell.Offset(-1, 0).Range("A1:D75").Sort
Key1:=ActiveCell.Offset(-1, 1). _
Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal

which is specific in that it is picking up the particular range which will
change in the sheet I am wanting to sort.

Any suggestions for a universal sorting macro - ok xlAscending and the other
bits can be set.

Francis Hookham