paste value and format using vba

[slym34]

Hi all,
can you tell me a way to copy and paste special the value and formatting of a cell from one place to the next? It starts out with a formula, and i want to bring over just the value, which i can do, but also need the formatting.. Thanks for the assistance. John

 

[VoG]

An example

Range("A1").Copy
With Range("B1")
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
End With

 

[xld]

rng.Copy
rng2.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

 

[slym34]

An example

Range("A1").Copy
With Range("B1")
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
End With

Great thank you for the quick reply!