Copy and paste format including colour of cells VBA Excel

Question

wbTarget.Sheets(\"Sheet1\").Range(\"A1:W79\").Value = wb.Sheets(wsSource.Name).Range(\"A1:W79\").Value

I have this code which works pasting the values

Answer 1

You need to use Copy, and PasteSpecial xlValues and PasteSpecial xlFormats.

' Copy
wb.Sheets(wsSource.Name).Range("A1:W79").Copy
' Paste Special
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats

Read about Range.PasteSpecial here MSDN