Hi,

I need to select the unlocked cells in an excel sheet that I have
protected.
The scope is to format those cells with a different colour to make
easier for the enduser to spot them.

I have found the following macro in the newsgroup:

Sub FindUnlocked()
Dim c As Range
Dim sel As String
Dim sel2 As String
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
sel = sel & "," & c.Address
End If
Next
sel2 = Right(sel, Len(sel) - 1)
Range(sel2).Select
End Sub

This is supposed to do the job but when I run it, I get the following
error:

Run-time error '1004':
Method 'range' of object'_Global' failed

Do you know what it means and how to solve it?
I use Excel 2000

Thank you
Alex