Return tab to original place in workbook

[dgiardina]

Hey all,

Is it possible to command a tab to return to it's original location in a workbook?

Thanks !

[lcartwright]

How did it move in the first place?
You cant drag it back into position?
Have you got some sort of coding that moves your tabs around?

without knowing what is going on, can only suggest Left Click mouse on Tab name area Hold and Drag to place.

[MarvinP]

Hi,

I just took a workbook with 5 tabs and recorded a macro to drag Tab 4 back to between tab 1 and 2. The VBA code looks like this:

Sheets("Sheet4").Move Before:=Sheets(2)

If you had the names of the tabs you could certainly write some code to get them back to the order you wanted them in.

[dgiardina]

Sorry, I should have given more details...

I have 150+ tabs in my workbook. Naturally, they are not named sheet 1, sheet 2, etc.

I select the tabs that I think I might need & move them to the end. If I decide that I don't need them, I'd like to put them back in their original place.

Thanks !

[Brendan_Floyde]

I think you'd either need to hold a key table of sheet name to required index or more preferably hold an index either in the tab name or sheet name so you can then run vba code to put the sheets back in the required or starting order.

There is lots of code available on sorting sheets alphabetically for example you could use.

I don't think you'll be able to achieve with out atleast some VBA.

[MarvinP]

OK dgiardina

Here is some VBA code that may do what you want. FIRST you need to find a cell in all your sheets that isn't being used. Some cell way out of the way like "AA3". Then change the code below (in both places) to "AA3".

Change the code below and then run the subroutine TagSheetOrder (you will need to have all sheets in the correct order when you run this sub).

After moving your sheets around manually and you want them back in the order you set using TagSheetOrder, you will run the second macro called ReorderSheets.

See the attached for the example.

Please Login or Register  to view this content.