Matt,

Sub TestMe()
Dim x As Integer
For x = 1 To 30
Range("cell" & x).Locked = True
Next x
End Sub

John

"Matt" wrote in message
...
I have a group of cells that I have renamed. They are cell1,cell2,cell3
and so on up to 30. Is it possible to take the cell names and extract the
number in the cell name so that I can use the number in a loop. I would
like to protect these cells as the loop progresses. Thanks.