Copy data from one sheet in a range to another sheet : Cell Copy « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Cell Copy

Copy data from one sheet in a range to another sheet

 
Sub Copy_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