Subscript out of range Error for token array

So I have this vba macro code, which initially worked like a charm. However, I decided to change the shapes it creates because they're not what I want. The initial code goes like this:

Please Login or Register  to view this content.

However, when I try to change msoShapeOval to msoShapeFlowchartProcess, and msoShapeFlowchartProcess to msoShapeFlowchartAlternateProcess, it comes out with a subscript out of range error at the line

Please Login or Register  to view this content.

I'm not sure how changing the shape created can cause a subscript out of range error. Can someone help me debug this? Thanks





P.S This is what I currently have that's coming out with the error:

Please Login or Register  to view this content.

Hmm, from the looks of it, you should have other module/sub/function outside of your main sub that defines and/or fills token_array and other variables as those are not defined in the sub routine itself.

It would be hard for us to help you without full project. I'd recommend uploading file with entire project, demonstrating your issue and what the end result should be like.

I have uploaded the file in question in this thread. Hope it'll help, thanks.

Sorry, I'd suggest you go to the author/source of the code to get help. See disclaimer in the module.

Please Login or Register  to view this content.