Paste Special Macro

  • Thread starter Thread starter Sal
  • Start date Start date
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
 
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
 
Back
Top