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

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Arturo - 19 Jan 2006 19:21 GMT

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

Reply to this Message

Leith Ross - 19 Jan 2006 19:30 GMT

Hello Arturo,

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

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

Sincerely,
Leith Ross

Signature

Leith Ross

Reply to this Message

Arturo - 19 Jan 2006 19:33 GMT

Just found this link:

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

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

> 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

Reply to this Message