Here is one I posted a day or two ago.
It went to each worksheet in the workbook and changed all cells that were
locked into bold.
So, comment (or delete) the "for each ws in sheets" and "next ws"
Modify to suit

Sub lockbold()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For Each ws In Sheets
For Each cell In ws.UsedRange
'your code here

' If cell.Locked = True Then cell.Font.Bold = True

Next cell
Next ws
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
MsgBox "No more cells to check"
End Sub

"James Asante" wrote in message
...
I want to pick cells with same labels in a worksheet and
format them in the same color. Any help with the macros or
vba to do that?

Thanks
JKA