Run Time Error

At a quick glance, you haven't defined the variable "uRows" anywhere in any of the code. I got the error when I clicked on the first button, and I didn't bother testing anything after that.

Also, you need to change your code from (in every instance):

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

It might be a bit tidier if you use a

Please Login or Register  to view this content.

statement also...

Hi,

It looks like it was created in XL 2003 which only has 65536 rows. You have references to row 100,000 before some .End(xlup) instructions so that will fail. Always use code like Range("A" & Rows.Count).End(xlup).

Neither is uRows dimensioned as a Long Variable.

In addition the sheet names you're adding use the Variable X which is not a string variable. Furthermore when this is converted to a string it contain the disallowable character : so this will need to be removed. Hence the line of code you need to use is:

Please Login or Register  to view this content.

I tried debugging your code and got many errors due to missing or mis-placed "End Sub"'s and undefined variables

Hi,

Probably because you are still using the Sheets(X) syntax.

Remember we had to change this in the line that added the new sheet since X is not a string variabe. So wherever you have Sheets(X) substitute

Replace(CStr(X), ":", " ")