Copy this programming code below to paste into the Formula Comment macro described during my presentation:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Dim rng As Range On Error Resume Next For Each rng In Selection strFormula = rng.Formula If strFormula <> "" Then rng.ClearComments rng.AddComment rng.Comment.Text strFormula rng.Comment.Shape.TextFrame.Characters.Font.Size=14 rng.Comment.Visible = True End If Next On Error GoTo 0 |
