Sheets("Sheet1").Move After:=Sheets(2)

[Arturo]

Is there syntax that will allow me to move a sheet of choice to the end
without requiring the number of sheets being known?

Arturo

[Leith Ross]

Hello Arturo,

Change "Sheet1" to the sheet you wish to move to the end.

Worksheets("Sheet1").Move After:=Worksheets(Worksheets.Count)

Sincerely,
Leith Ross

[Arturo]

Just found this link:

http://computerwhizzard.50megs.com/excelmacros.html

Sub AddSheetsTutorialExampleRevised()
With ActiveSheet
.Move after:=Worksheets(Worksheets.Count)
End With
End Sub




"Arturo" wrote:

> Is there syntax that will allow me to move a sheet of choice to the end
> without requiring the number of sheets being known?
>
> Arturo