VBA/Excel/Access/Word/Excel/Cell Copy
Copy data from one sheet in a range to another sheet
<source lang="vb">
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
</source>