Posting Values and Formats with VBA

[999HelpPlease]

I need to take the formats from one sheet and copy to another sheet and the values of the original sheet and post to a separate sheet.

All my info is on sheet 2. I need to post the formats to Sheet 1 and the values to Sheet 3.

This is what I have but it doesn't work.

Worksheets("Sheet2").Activate
Range("A1:d9").Select
Selection.Copy
Worksheets("Sheet1").Activate
ActiveSheet.PasteSpecial xlPasteFormats
Worksheets("Sheet2").Activate
Range("A1:d9").Select
Selection.Copy
Worksheets("Sheet3").Activate
Selection.PasteSpecial Paste:=xlPasteValues



End Sub


Is there an easier way to write this code?

 

[BarryL]

try:

Worksheets("Sheet2").Range("A1:d9").Copy
 Worksheets("Sheet1").Range("A1:D9").PasteSpecial xlPasteFormats
 Worksheets("Sheet3").Range("A1:D9").PasteSpecial xlPasteValues

 

[999HelpPlease]

Thank you for your help. Greatly appreciated.

 

[BarryL]

you're welcome