Move Worksheet

[TGalin]

3 worksheets. Named A, B, C. Is there a better way to move them then this?

Sub Macro1()
Sheets("A").Select
Sheets("A").Move After:=Sheets(2)
End Sub

 

[Dave Peterson]

I wouldn't select it first.

3 worksheets. Named A, B, C. Is there a better way to move them then this?

Sub Macro1()
Sheets("A").Select
Sheets("A").Move After:=Sheets(2)
End Sub

 

[AltaEgo]

You don't need to select the sheet. It will be active after the move.

Sub Macro1()
Sheets("A").Move After:=Sheets(2)
End Sub


Other sheet copy/move code:

http://support.microsoft.com/kb/288402

 

[TGalin]

When I use that formula by itself it works now, however when I add it on to
another macro it doesn't work. Any thoughts?

 

[TGalin]

Although the formula works by itself when I add it on to another macro
nothing happens. Any thoughts?

 

[Dave Peterson]

Maybe you don't have a sheet named "A" in the activeworkbook???

Maybe the activeworkbook has fewer than 2 sheets???

Or maybe the other code is what's causing the trouble.

 

[AltaEgo]

Perhaps it lost something in the paste or, as Dave indicates, you need to
the appropriate workbook is active.

I note that you are using a mix of named sheet and sheet index in your code.
Is this what you intend (i.e The sheet named A will appear second in your
tab order after the code runs). Alternatively did you want it to appear
after another specific sheet? The following might help

You can swap two sheets continuously in the same workbook using the same
code if you use the sheet index rather than the sheet name:

Sub Macro1()
Sheets(1).Move After:=Sheets(2)

End Sub

Run the above several times and note the change in location of your first
two sheets in tab order each time.

Now try
Sub Macro1()
Sheets("Sheet1").Move After:=Sheets("Sheet2")

End Sub

After ensuring you have sheets names Sheet1 and Sheet2 in your workbook.