Hi,

I don't know of any built in way to do this, but the following macro
should do it:

Sub test()
Dim ActiveRng As Range

For Each cell In ActiveSheet.UsedRange
If Not cell.Locked Then
If ActiveRng Is Nothing Then
Set ActiveRng = cell
Else
Set ActiveRng = Union(ActiveRng, cell)
End If
End If
Next
If Not ActiveRng Is Nothing Then ActiveRng.Select
End Sub


Cheers,
Ivan.


On Mar 27, 12:55*am, Mart wrote:
Is there an easy way to view/highlight all protected cells on a sheet at once ?

I have 12 sheets and I want to check all the right cells are protected in
each.

thanks