Cell formats

S

smbjax

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?
 
C

Colo

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/colo/CellMastersLink.htm
mailto:[email protected]

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


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