Hi serickson,
Here is another slightly different approach. This macro selects all the unlocked cells on the active worksheet WITHIN THE USED RANGE. The used range is the smallest rectangular range of cells that contain data. This definition is important because it is possible if the worksheet doesn't have any filled cells around the unlocked cells that the cells will not be within the used range and therefore not be highlighted.
To use this macro, first insert it into a macro module by going to the VBE (keyboard Alt-TMV), insert a new macro module (Alt-IM), and paste the code into the code pane. To run the macro use Alt-TMM or assign it to a button or keyboard shortcut.
Sub SelectUnlocked()
'Selects all unlocked cells within used range on the active worksheet
Dim Cell As Range
Dim UnlockedCells As Range
Dim CellCount As Long
CellCount = 0
For Each Cell In ActiveSheet.UsedRange
If Not Cell.Locked Then
If CellCount = 0 Then
Set UnlockedCells = Cell
Else
Set UnlockedCells = Union(UnlockedCells, Cell)
End If
CellCount = CellCount + 1
End If
Next Cell
UnlockedCells.Select
'Comment this out if you don't want to see the count:
MsgBox CellCount & " unlocked cells", vbInformation, "Select Unlocked Cells"
End Sub