Color Cell Based on Locked/Unlocked Property

[sowetoddid]

>...Trying to setup a macro that will color cells based on their locked/unlocked status. Making it up didn't quite work. Please help

Sub LockTest()

    For Each xCell In ActiveWorkbook.Worksheets
        If xCell.Locked = False Then
            xCell.ColorIndex = 37
        End If
    Next xCell
End Sub