I have a worksheet with the code below running on excel 2003.
The worksheet is protected with "select unlocked cells" and "formatt cells"
enabled.
When moved to excel 2000 the option for "formatt cells" fails.
Unsure how to correct this in excel 2000.
Any help would be a boon.

Dan


'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
..FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
..FormatConditions(1).Interior.ColorIndex = 6
End With

End Sub