"Theo" skrev i en meddelelse
...
I have this macro which works great.
But I need to ALSO copy/paste the format of the cells

Sub Macro1()
Sheets("Sheet1").Rows("1:1").Copy
Sheets("Sheet2").Rows("3:5").PasteSpecial
Paste:=xlPasteValidation, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub


Hi Theo

Substitute "Paste:=xlPasteValidation" with "Paste:=xlPasteAll"

//Per