That is a lot of lines. I just tried creating and deleting about
70,000 lines on a worksheet. I left the last 3 lines and they indeed
have names of "Line 70004" and the like. The shapes.count is only 3,
however, and it did not crash. I am using Excel 2003.
You can also change the "name" property by just setting it like this:
Dim sLine As Shape
sLine.Name = "Line " & lCount
Just don't try to set the name to the same name as another object.