Makro virker kun på Integer og ikke på decimal

Hej alle,

Jeg bruger nedenstående makro til at ændre en masse celler fra at have et tal, til at have et tal gange en celle. Eks:
Værdi før: 22
Værdi efter: =22*A1

Dog virker den kun på hele tal og ikke decimaltal.

Sub modificerVærdi()
    For Each celle In Selection.Cells
        værdi = celle.Value
        If værdi <> "" And IsNumeric(værdi) = True Then
            celle.Formula = "=" & værdi & "* A1"
        End If
    Next
End Sub

Hvordan får jeg den til at virke med decimaltal?

På forhånd tak!