I have a file i made in 2007 that runs fine but when i try to run it in 2003 i get an error 2029 on the code below. It runs fine until the "Lock Partition Walls Cells" section. If i comment out those lines, it will error on the "Lock Framed Opening Cells"
Am i hitting a limit in my code somewhere that 2003 can not get past?
' Lock Open Walls Cells - Partition Walls - Framed Openings
Private Sub lockCells_OpenWalls()
Dim i As Long
Dim e As Long
Dim f As Long
Dim g As Long
Dim j As Long
Sheets("Gen_3").Activate
For i = 243 To 306
If Range("H" & i).Value = "" Then
Range("O" & i & ":V" & i).Cells.Locked = True
Range("X" & i & ":AF" & i).Cells.Locked = True
End If
Next i
For e = 243 To 306
If Range("H" & e).Value = "None Requested" Then
Range("X" & e & ":AF" & e).Cells.Locked = True
End If
Next e
For f = 243 To 306
If Range("C" & f).Value = "Front Sidewall:" Or Range("C" & f).Value = "Back Sidewall:" Then
Range("X" & f & ":AF" & f).Cells.Locked = True
End If
Next f
' Lock Partition Walls Cells
For g = 111 To 238
If Range("W" & g).Value <> "Sheeted one side w/:" Then
Range("AB" & g & ":AH" & g).Cells.Locked = True
End If
Next g
' Lock Framed Opening Cells
For j = 459 To 562
If Range("H" & j).Value = "" Then
Range("N" & j & ":R" & j).Cells.Locked = True
Range("T" & j & ":X" & j).Cells.Locked = True
End If
Next j
End Sub
Bookmarks