Paste Formats Code

[bpgolferguy]

Hi, I currently have this code in a button:

With Sheets("TourSCAmMen")
.Range("B2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With

How would I modify it to also paste formats when it pastes values? Thanks!

 

[Weaver]

If it's the number formats you're after

Paste:=xlpastevaluesandnumberformats

 

[bpgolferguy]

Well, kind of. I have a date format in one, and then a time format in another....

 

[Weaver]

Well, kind of. I have a date format in one, and then a time format in another....

.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Should do it then.

or

.PasteSpecial Paste:=12