Paste Special Macro

S

Sal

Here is a macro for paste special. Can anyone tell me what I can do so the
formats will paste into Sheet 2 along with the data?

Sheets("Sheet1").Activate
Range("A1:I88").Copy
Sheets("Sheet2").Activate
Range("A1:I88").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
A

arjen van...

If it's specifically values and formats you're trying to copy then try
something like:

Sheets("Sheet1").Activate
Range("A1:I88").Copy
Sheets("Sheet2").Activate
Range("A1:I88").PasteSpecial Paste:=xlPasteValues
Range("A1:I88").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
Top