Hi Michael,

One simple approach would be, when protecting the worksheet, check the
"Sort" item in the "Allow users of this worksheet to:" check list. Note that
this selectivity in protecting items in a worksheet doesn't extend prior to
Excel XP (but is available in Excel XP and 2003).

"michaelberrier" wrote:

One of many macros in this sheet sorts a range of data based on
specific key cells. The sort will not execute if the worksheet is
protected. It gives the following error:

Runtime Error '1004'
Sort method of range class failed.

Here is the code at the point where it fails:

Range("A7:I999").Select
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending,
Key2:=Range("B8") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom

All the cells in that range are unlocked. I've tried reducing the
range size to only one or two cells to isolate the offender, but the
error persists. Of course, VBE help was none.

Thanks to all.