I think you mean locked. Individual cells can be locked
and unlocked, but protection refers to worksheets,
workbooks, and VBA projects. This macro will list
all "unlocked" cells. Select the range of cells and run
this macro:

Sub ListLocked()

'//Constructive criticism from VBA
'//programmers appreciated

Dim cell As Range
Dim rng As Range
Dim i As Long
Dim wList As Worksheet

Set rng = Intersect(Selection, ActiveSheet.UsedRange)
Set wList = Sheets.Add
wList.Cells(1, 1).Value = "Unlocked Cells"

i = 2
For Each cell In rng
With cell
If .Locked = False Then
wList.Cells(i, 1).Value = .Address(False, False)
i = i + 1
End If
End With
Next

End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
Is it possible to list a list of protected Cells in a
worksheet, without
having to Right Click on each cell?

Thanks


.