Hi,
Didn't download the file from Aaron's site (which is nice), so apologies if this is the same.
Select your range (or modify the routine to find the range) and run this:
Sub test()
Dim c As Range
For Each c In Selection
If Not c.HasFormula And IsNumeric(c) Then c = CDbl(c)
Next c
End Sub