lock cells

[774117]

hello,

i made code:

dim x,y as integer

for i = 1 to 5
for j=1 to 5
cells (x,y).select
selection.lock
next j
next i

the command "selection.lock" is not good. what should i write instead?

 

[YasserKhalil]

May be

Sub Test()
    Dim i As Integer, j As Integer


    For i = 1 To 5
        For j = 1 To 5
            Cells(i, j).Locked = True
        Next j
    Next i
End Sub