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>