Sounds to me like Cost&Margin isn't the active sheet when the code runs. If
that's true, you have a missing period.

Change this line

Set SortRange = .Range(.Range("C1002"), Range("c1002").End(xlDown))


to

Set SortRange = .Range(.Range("C1002"), .Range("c1002").End(xlDown))
^

On 17 Feb 2005 14:47:11 -0800, "
wrote:

Thanks Jim, that got me over the first hurdle. Now I get a Sort Method
of Range Class Failed at:

SortRange.Sort Key1:=.Range("C1002")

Any other insights?

Thanks,

Brent

Jim Cone wrote:
Brent,

Set SortRange = .Range(.Range("C1002"), Range("c1002").End(xlDown))

Regards,
Jim Cone
San Francisco, USA


wrote in message
ups.com...
I have the following code that produces an Application defined or
object defined error:

Sub SortStyleList()
Dim SortRange As Range

With Sheets("Cost&Margin")
SortRange = .Range(.Range("C1002"), Range("c1002").End(xlDown))
UnprotectAll
SortRange.Sort Key1:=.Range("C1002")
ProtectAll
End With
End Sub

But the following code works flawlessly.

Range("C1002", Range("C1002").End(xlDown)).Select
Selection.Sort Key1:=Range("C1002")

I do not want to select the range. What am I doing wrong?
Thanks,
Brent