View Locked Cells
 

Howdie,

Is there a way to select all locked cells within a sheet?
Alternatively, could I produce a new sheet with all the references of
the locked cells...? (eg b1,c3,c9... etc would be all the locked
cells...)

Thanks

D :)



*** Sent via Developersdex http://www.developersdex.com ***

View Locked Cells
 

A small macro should do it. Something like:

Sub SelectLockedCells()
Dim c As Range, rng As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.Locked Then
If rng Is Nothing Then
Set rng = c
Else
Set rng = Union(c, rng)
End If
End If
Next
rng.Select
End Sub



"Darin Kramer" wrote in message
...
Howdie,

Is there a way to select all locked cells within a sheet?
Alternatively, could I produce a new sheet with all the references of
the locked cells...? (eg b1,c3,c9... etc would be all the locked
cells...)

Thanks

D :)



*** Sent via Developersdex http://www.developersdex.com ***