Hi smbjax,
Why don't you copy and paste format only with PasteSpecial ?

Sub Test()
PasteFormat Sheets("Sheet2").Range("A1"), Sheets("Sheet1").Range("A1")
End Sub

Sub PasteFormat(ByVal rngFrom As Range, ByVal rngPaste As Range)
rngFrom.Copy: rngPaste.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub


--
Kind Regards
Colo
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Colo of 'The Road of The Cell Masters' :)

URL:http://www.interq.or.jp/sun/puremis/...astersLink.htm


/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/


"smbjax" wrote in message
...
Is it possible to format a cell based on another cell's format on a
different sheet. Example - if the text in cell A1 is bold on one sheet, can
cell A1 be automatically be made bold as well?