Good evening Dave
This routine will work, but only on a range, so select the range you
want to check and run the macro. All cells are protected in a new
spreadsheet by default, so this routine will select all the UNPROTECTED
cells.
Sub UnlockCell()
Count = 0
On Error Resume Next
For Each Rng In Selection
If Rng.Locked = False Then
Count = Count + 1
If Count = 1 Then Set Unlocked = Rng
If Count <> 1 Then Set Unlocked = Union(Unlocked, Rng)
End If
Next Rng
Unlocked.Select
End Sub
HTH
DominicB
