Remove lines from VBA procedure

Sub Remove_Lines()

Dim lines&, i&

lines = ThisWorkbook.VBProject.VBComponents.Item("WaterFall_Graph").CodeModule.CountOfLines

On Error Resume Next

For i = 1 To lines                                                            ThisWorkbook.VBProject.VBComponents.Item("WaterFall_Graph").CodeModule.DeleteLines 1

Next i

End Sub