Gary,

If you send me your file, I will get it to work. It's just easier to do
that sometimes.

Remove any sensitive data, and send it to me: take the spaces out, and
change the dot to .

HTH,
Bernie
MS Excel MVP


"gbeard" wrote in message
...
Bernie,
That returns the "Runtime error 9 Subscript out of range" error. The
debugger is highlighting:

.Range("A1:P150").Sort _
Key1:=.Range("A1").Item(1, Worksheets(Sheet1Name).Range("C3").Value),
_
Order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

--
Gary Beard