Why is this programing not working? it gets stuck selecting the cells to
paste. The reason I am copying and pasteing then coping and pasteing values
it because I am pasteing into a sheet with merged cells.

Sheets("Daily").Select
Range("A9:P63").Select
Selection.Copy
Sheets("email").Select
Range("A9:P63").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Hi negzel,

Have you considered the following?

Sheets("email").Range("A9:P63").Value = _
Sheets("Daily").Range("A9:P63").Value

Regards,
KL
(XL 97, 2000, 2002)

"negzel" wrote in message
...
Why is this programing not working? it gets stuck selecting the cells to
paste. The reason I am copying and pasteing then coping and pasteing
values
it because I am pasteing into a sheet with merged cells.

Sheets("Daily").Select
Range("A9:P63").Select
Selection.Copy
Sheets("email").Select
Range("A9:P63").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False