Ed ecco la macro suggeritami dal buon Roberto Mensa di microsoft.public.it.office.excel, perfettamente funzionante.
codice:
Private Sub ConvInNumero_Click()
Dim x As Range
On Error Resume Next
If TypeName(Selection) = "Range" Then
For Each x In Selection
x.Value = x.Value * 1
Next
End If
End Sub