Move sheet to the end : Worksheet Move « Excel « VBA / Excel / Access / Word





Move sheet to the end

 
Sub Move_Sheet()
    Dim myWorksheet As Worksheet
    Dim myWorksheetName As String
        myWorksheetName = "MyName"
        Sheets.Add.Name = myWorksheetName
        Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
        Sheets("Sheet1").Range("A1:A5").Copy _
            Sheets(myWorksheetName).Range("A1")
End Sub

 










Related examples in the same category

1.Drag the third worksheet to the first sheet position
2.copy the third worksheet before the 2nd worksheet
3.copy the third worksheet to a new book