maybe something like this

Sub test()
Worksheets("sheet1").Range("b3").Copy
Worksheets("sheet2").Range("g1:g5").PasteSpecial xlFormats
End Sub

--


Gary


"Angelus" wrote in
message ...

Is there a way to use the format painter in VBA? I mean, basically
copying all the formatting properties of one cell into another cell?

Thank you in advance!


--
Angelus
------------------------------------------------------------------------
Angelus's Profile:
http://www.excelforum.com/member.php...o&userid=30721
View this thread: http://www.excelforum.com/showthread...hreadid=503918