Afrunde priser i prisliste

Hej.

Jeg har en prisliste med 9000+ varer, som jeg skal have rundet op til fornuftige tal. Priserne kommer i EUR og bliver så omregnet til DKK. Derefter skal priserne rundes op til nærmeste 9.

Eksempler:
15 skal give 19
111 skal give 119
1288 skal give 1289

Jeg har fundet et VB script herinde som næsten virker. Det skal bare skrives lidt om, hvilket jeg ikke helt selv kan greje.

Function MyRound(Number As Double, Multiple As Double) As Double
    MyRound = Round(Number / Multiple, 0) * Multiple
End Function

Sub RundOpNed()
Dim c

    For Each c In Selection
        If IsNumeric(c.Value) And c.Value <> "" Then
            c.Value = MyRound(c.Value, 99)
        End If
    Next

End Sub

På forhånd tak!