Need help moving/ordering worksheets within a workbook

[ndrobinson]

Howdy, all. I'm working on an excel file that can be used to input data each day over the course of a month. It has a different worksheet for each day, simply named in numerical order (1, 2, 3... 31). It's a work in progress, though, so I'm constantly tweaking the template and adding new features to it. Because of that, I was looking for a way to automatically copy a particular sheet several times and rename it. For instance, if it were the 13th, I'd update something on worksheet 14, and then run a macro to copy that worksheet 17 times and rename each of those copies (15, 16, 17... 31).

Here's the code I have currently:

Please Login or Register  to view this content.

It successfully copies the active sheet the correct number of times and renames each one, but the issue I'm having is with the ordering of it. I'd like them to be in numerical order from 1 to 31, but it doesn't seem to turn out that way. I assume this has something to with the After:=Sheets(x) portion, though my VBA skills are awfully basic. Additionally, I made this macro by trial and error for the most part. If anybody has some feedback to improve and help me better understand some of what's going on here, I'd appreciate it.

[xLJer]

To position copied worksheets at the end of existing sheets and in the same order that they are copied, try:

Please Login or Register  to view this content.