should be there dont know why it isnt
are you a limited user ?


check this macro out should help
could not be sure due to me not having 2000

Sub ShadeProtected() 'Set cell shading for selection
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If cell.Locked Then
cell.Interior.ColorIndex = 36 'lt.yellow
Else '(not locked)
End If
Next cell
Application.ScreenUpdating = True
End Sub

or try this

ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1",
Range:=Range( _
"A1:C10")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True,
Scenarios:= _
False, AllowFormattingCells:=True,
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True,
AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True,
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True,
AllowFiltering:=True, _
AllowUsingPivotTables:=True

might not work but you can give it a shot


--
Zygan
------------------------------------------------------------------------
Zygan's Profile: http://www.excelforum.com/member.php...o&userid=34423
View this thread: http://www.excelforum.com/showthread...hreadid=548866