Hice lo que me dijeron para redondear pero no pasa nada

hice lo que me explico pero no pasa nada no me multiplica ni me redondea, esto es lo que hice
Sub multiplicaPor2()
Dim i As Integer
mivariable = MsgBox("Deseas continuar?", vbOKCancel + vbQuestion, "TokenRing")
If mivariable = vbOK Then
For i = 1 To 6
Cells(i, 2) = Round(Cells(i, 2) * 1.025, 0) ' Multiplica por 1.025 lo que hay en la fila "i" columna 2 (B) y lo deja en la misma celda
Next i
Else
Exit Sub
End If
End Sub