VBA - removing last digits in excel , beginner

Hello,

I have never used VBA before, so please go easy on me.

I would like to go through list of asset numbers and if any number ends with one or more zeroes, I would like them removed.

I have drafted something like:

Sub Remove_Zeros()

If
Right(Cell(3, 3), 1) = 0

Do

Left(Cell(3,3), Len(Cell(3,3)-1))

Loop While Right(Cell(3, 3), 1) = 0


End If

End Sub

Please check my syntax and logical process for any errors.

Almost.

Select the cells before running the macro.

Sub Remove_Zeros()

Dim cell As Range

For Each cell In Selection
    Do While Right(cell, 1) = 0
        cell = Left(cell, Len(cell) - 1)
    Loop
Next ' cell

End Sub

Regards