Code to add sheets throwing Syntax error

Originally Posted by Ochimus

... Code is throwing a Syntax Error ...
'Add sheet to Workbook - Throwing "Syntax error"

Instead of:

Please Login or Register  to view this content.

this:

Please Login or Register  to view this content.

Originally Posted by Ochimus

... If Not ws(.Range("A" & s)) Then ...

This is the wrong syntax

also

for this command:

Please Login or Register  to view this content.

the wrong sheet index will be calculated - always number 2.
Is this just what should be written in the dictionary ?

porucha vevrku,

Many thanks for prompt response, but has created a new problem!

As shown on the attached, I changed the Macro from a Module to a Worksheet Change on Sheet 2, so it will create new sheets automatically if the user adds a new name.

Starting with just Sheets 1 and 2, I added a new name to Row 8 on sheet 2. Macro ran perfectly and created the new sheet.

But when I added a second new name to Sheet 2, it not only created the new "names" sheet, but a range of "numbered" sheets as well.

And when I tried a third new name, the entire Macro stopped working!

As you can see, I set the Immediate window to ensure Application.EnableEvents = True, as the Macro then sets it to False until it completes, when it resets to True

Please Login or Register  to view this content.

Hope someone can "see the wood for the trees"??

Ochimus

Try

Please Login or Register  to view this content.

Or maybe without a dictionary ?

Please Login or Register  to view this content.

Fluff,

Many thanks.

Added your change, Macro worked again perfectly.

Can now mark this as "Solved"

Ochimus



Ochimus

You're welcome & thanks for the feedback