using VBA. Put this in your worksheet code module (right-click on the
worksheet tab and choose view code):
Assume the formula is in Sheet1 cell A1 and the referenced cell is in,
Sheet2 cell J10:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Sheets("Sheet2").Range("J10").Copy
Range("A1").PasteSpecial Paste:=xlFormats
Application.EnableEvents = True
End Sub
Note that this won't immediately update if the format in Sheet2!J10
changes - there's no event fired by a format change. You'll need to
press F9 or otherwise cause a calculation.