SyntaxFix
Write A Post
Hire A Developer
Questions
Sub CopyValueWithFormatting() Sheet1.Range("A1").Copy With Sheet2.Range("B1") .PasteSpecial xlPasteFormats .PasteSpecial xlPasteValues End With End Sub