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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Run-time error 1004 paste method of worksheet class failed 3
conso macro 0
Help with condensing a lot of copying/pasting... 4
Run macro from active workbook whose name keeps changing 20
sort macro not working 1
= Today()+1 into Sheet1, Sheet2, and Sheet3 2
Simplify Code for Copy/Paste Special 11
Code not working as expected 2

Top