where does the code break??


Sheets("6").Range("D10:L23")..Copy
Sheets("1").Range("D10").PasteSpecial Paste:=xlPasteFormats,
peration:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


"LiAD" wrote:

Hi,

The following code gives me a run time error 1004 Select method of range
class failed. Would you have any ideas why?

It came from the recorder as well!

Thanks for your help
LiAD

Sheets("6").Select
Range("D10:L23").Select
Selection.Copy
Sheets("1").Select
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("6").Select
Range("A1").Select
Sheets("1").Select