Cindy

When you add a worksheet it becomes the activesheet.

You don't need all those "Selects". Just use the values from "Next List" and
place them into the new sheet.

Sub add_n_copy()
Dim ws As Worksheet
Worksheets.Add.Name = Format(Date, "mmm dd yy")
ActiveSheet.Range("A1:A25").Value = _
Sheets("Next List").Range("A1:A25").Value
End Sub


Gord Dibben MS Excel MVP

On Fri, 28 Dec 2007 12:58:01 -0800, ckrogers
wrote:

Hi. I have the following code (from a macro):

Worksheets.Add.Name = Format(Date, "mmm dd yy")
Sheets("Next List").Select
Range("A1:A25").Select
Range("A25").Activate
Selection.Copy
Sheets(Name).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets(Name).Select

I'm a beginner in VB and Macros ... how can I "store" the name of the new
worksheet I've created so I can select the right worksheet for the
PasteSpecial command?

Any and all help will be appreciated!

Cindy