Back

To create the button, select Tools|Customize from the main menu. Select the "Commands" tab. Select the "Macros" command (left hand window). Click and drag the custom button (the happy face) to your menu bar. Click on the "Modify Selection" command button in the "Customize" window. Select "Assign Macro" and assign this macro to the button.

Sub Add_Three_Point_Zero_Eight()
' Macro written by Barrie Davidson
If Mid(Selection.Formula, 1, 1) = "=" Then
Selection.Formula = Selection.Formula & "+3.08"
Else
Selection.Formula = "=" & Selection.Formula & "+3.08"
End If
End Sub

Copyright ^© 2001 by Barrie R. Davidson
Added November, 2001