Right click sheet tabview codecopy/paste this. You may want to restrict to
certain cells.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range(Cells.Find(Target).Address).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub
--
Don Guillett
SalesAid Software
"Kevin BC" wrote in message
...
How can I modify the formula of equals (=) so that it equals both the
value
and formatting of another cell?
--
KBC