Macro que manda un msgbox y redondea al multiplicar

hice lo que me explicaron 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