Steve,

Thanks a lot, this is exactly what I am looking for.


-----Original Message-----
If you really want the form to be presented to the user
rather than program
the sort as suggested by Trevor, the following should
work. The only quirky
part is that you have to have the SendKeys run before
the Execute
instruction goes to bring up the Sort box with a header
row assumed:

Sub SortARange()
Dim rngA As Range
Dim cmdBar As CommandBar
Dim cmdBarMenu As CommandBarControl
Dim cmdBarMenuItem As CommandBarControl

Set rngA = Range("A2:D100")
rngA.Select

Set cmdBar = Application.CommandBars("Worksheet Menu
Bar")
Set cmdBarMenu = cmdBar.Controls("Data")
Set cmdBarMenuItem = cmdBarMenu.Controls("Sort...")
SendKeys "%R"
cmdBarMenuItem.Execute

End Sub


Steve


"Jason" wrote in
message
news:F1498A51-C15C-46F1-BB08-
...
I need a macro that will select a range (let's say
A2:D100) and then will
pop
open the sort userform box which is built into excel.
I would also like
the
sort userform when opened to have the "My list has
Header Row" choice
selected as a default. From there the user will be
able to interact with
the
dialog box to select the different ways they may want
to sort. Any help?
Thanks


.