I have a followup question on protecting the worksheets.
I had a similar problems couple weeks aback, worked my way around it
but still haven't found exactly what I'm looking for.

I need a way to protect the worksheet, while allowing users to sort
columns. I know one of the options under tools-- protection says i
allows sorting, but it does not work..
this is what I've done:

ActiveSheet.Unprotect ("*****")

Set sortrange = Application.InputBox(prompt:="Click a cell in th
column to be sorted", Type:=8)
sortrange.Select
Range("A1:AA6000").Sort Key1:=sortrange, Order1:=xlAscending
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
' Protect the worksheet
ActiveSheet.Protect ("******")

End Sub

As u can see, I had to write VB code to first unprotect the sheet
allow sorting then return the protection....

Is there a much simpler way to do this

--
Message posted from http://www.ExcelForum.com