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

Having difficulty copying and pasting on VBA 3
Help merging two VBA codes 2
Macro Related to Paste Values 2
Help with condensing a lot of copying/pasting... 4
Code not working as expected 2
stopping a macro 0
copy paste problem 4
= Today()+1 into Sheet1, Sheet2, and Sheet3 2

Top