I changed
Dim totallines As string
to
Dim totallines As Double
and the Immediate window doesn't give me an error any longer
So I tried this with my data and NOTHING happens...
Do you have enough info to help me or do you need more?

- g