Don't want to be *too* critical, but since you're offering this in an
open forum, people who might download your add-in should be aware of a
few flaws:
1) There is a BAD bug in your code. If you select two or more cells with
formulae in them, those formulae are converted to string literals. E.g:
Before After
A1: ="Profit: " & J1 PROFIT: 100
A2: ="hello" HELLO
J1: 100 100
2) The add-in changes the Selection - in general that's bad form,
especially when the add-in's behavior depends on the Selection object.
Much better to use range objects directly. This is especially true if
the user has a _SelectionChange event macro, which might have
unpredictable effects on your add-in's behavior.
3) Resetting the user's calculation mode to Automatic is also generally
bad form.
4) Using SpecialCells is problematic and can lead to inconsistent
behavior without careful coding. If a single cell is selected,
Selection.SpecialCells will select from the entire worksheet, while if
two or more cells are selected, SpecialCells only looks at the selected
cells.
5) Protecting your code for such a simple function is overkill and
should lead users with any degree of caution to avoid your add-in.
All of these should be easy to correct.