Dan

Assuming the uncolored cells are locked and sheet protection enabled, you can
run this macro to clear the unlocked(colored) cells.

Sub UnLocked_Cells()
Dim Cell As Range, tempR As Range, rangeToCheck As Range
Cells.Select
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Not Cell.Locked Then
If tempR Is Nothing Then
Set tempR = Cell
Else
Set tempR = Union(tempR, Cell)
End If
End If
Next Cell
If tempR Is Nothing Then
MsgBox "There are no UnLocked cells in " & _
"the selected range."
End
End If
tempR.Select
tempR.ClearContents
End Sub


Gord Dibben Excel MVP

On Wed, 30 Mar 2005 17:16:09 -0800, "Dan wilson" wrote:

Good day. I am using Excel 2002 with Windows ME. I have
created a worksheet for ordering products. Each of the
cells that needs to be cleared to start a new order is
formatted with a green pattern. These are the only cells
that the user will be allowed to modify when the project
is done. Is there a way to write a macro that will clear
only the green cells on the worksheet?

Thanks, Danno...