First unprotect the worksheet and then run this macro:

Sub islocked()
Set rLocked = Nothing
For Each r In ActiveSheet.UsedRange
If r.Locked Then
If rLocked Is Nothing Then
Set rLocked = r
Else
Set rLocked = Union(r, rLocked)
End If
End If
Next
If rLocked Is Nothing Then
Else
rLocked.Select
End If
End Sub
--
Gary''s Student - gsnu200795


"smithista" wrote:

Is there a way to show which cells in a worksheet are locked?

Thanks
Stephen