VBA Excel - Afrund formel

Marker cellen/cellerne og kør denne makro. Virker kun på celler med formler.

Sub ADDRound()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
    If cel.HasFormula = True Then
        If Not cel.Formula Like "=ROUND*" Then
            myStr = Right(cel.Formula, Len(cel.Formula) - 1)
            cel.Value = "=ROUND(" & myStr & ",0)"
        End If
    End If
Next
End Sub

Tak for svaret, hvordan overfører jeg points?

Jeg skal lige svare først :-)