Thank you I hadn't thought of that. The file however is rather complex and it
would still take a lot of time to tab round all the unlocked cells. Is there
any way of viewing the whole sheet in one go?
Sub colourlockedcells()
For c = 1 To 10
For r = 1 To 10
If Cells(r, c).Locked = True Then
Cells(r, c).Interior.ColorIndex = 6
End If
Next r
Next c
End Sub
Returns coloured cells back to "clear". It will also clear any existing cell
colours.
Sub clearcolouredcell()
For c = 1 To 10
For r = 1 To 10
Cells(r, c).Interior.ColorIndex = 0
Next r
Next c
End Sub