copy cell format

[Guest]

Hello -
I recorded a macro to copy the format of a range of cells on sheet2 to an
equal range of cells on sheet 1. When I run the macro it copies the data
from sheet 2, but then it runs into a problem on the
"Range("D3449").Select" step and gives me the following error.

select method of range class failed

Sheets("Sheet2").Select
Range("D924").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("D3449").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Thanks for any info you can give me on this.

 

[Guest]

I found the problem. I had the code attached to a command button in sheet 2.
I moved the macro to module in the workbook and it works fine now.