Macro to Increment and Print to PDF filename from merged cell

Hi everybody,

I'm a total beginner at this. I'm trying to create a macro that would ask a user for a serial number and quantity and based on that print the right amount of documents. There are several but's here though.
The Workbook this will be used on is protected. The cell where the serial number is entered is a merged cell. Information is stored on 4-5 worksheets, while only sheet 5 needs to be printed. The serial number consists of a mix of letters and numbers (ie. G19273WE0000001)
This is what I've got so far but it doesn't work for reasons unknown to me.

Please Login or Register  to view this content.

I believe I may have defined bvarSplit wrong as a variant but for the life of me I can't figure out how else to define it so that it could be incremented and retain the 0-s in front.
I've tried removing the time delay and else clause about the number of digits, but to no avail.
Using WinXP and Excel 2007. I could really use some help on this.

I could get the following script running, but it doesn't consider the entered serial number when printing the first page.

Please Login or Register  to view this content.

So what I'm essntially struggling with is this:
1) The script seems to ignore anything printing related
2) How do I retain zeros in the last 4 digits of the serial number while incrementing it