RE: 1) I did catch the prefix issue, but that has not caused problems to
this point because Sheet13 is always the active sheet when I am running  this
Macro. It will be corrected before releasing the sheet though.

RE: 2) the </5lane> is the last tag in the sheet, so the purpose of the 3rd
While loop is to hide the lines in all of the packages after the package
that was un-hidden. If the etag is set to </5lane> then that third While
loop doesn't even run, because the very first cell it looks at meets the
condition.

The values on Sheet1 are entered by a salesman when they sell a 1, 2, 3, 4
or 5-lane package.

I know this is all difficult without the actual sheet, and I would make that
available, but the sheet contains a LOT of confidential information that I
cannot release. The bottom line is that this code  works every time  it is
run, it's just that if you run  it more than once without closing and
re-opening Excel in between, it runs extremely slow, 2+ minutes versus just
a few seconds for the first time through.

I do however appreciate the suggestion of the ElseIf, that is not a command
the Liberty Basic has, so I was not familiar with it.

I will work on optimizing this code and making it easier to follow and if
I'm still having issues I will re-post it.