This little macro will find locked cells within the used range:

Sub SeeLocked()
Set ll = Nothing
For Each r In ActiveSheet.UsedRange
If r.Locked = True Then
If ll Is Nothing Then
Set ll = r
Else
Set ll = Union(ll, r)
End If
End If
Next
If ll Is Nothing Then
MsgBox ("nothing locked")
Else
ll.Select
End If
End Sub
--
Gary''s Student - gsnu200802