If all the numbers in the range are integers then:

Sub monica()
For Each r In Selection
r.Value = 10 * r.Value
Next
End Sub

--
Gary''s Student - gsnu200737


"Monica" wrote:

Trying to create a macro to add a zero to the end of a cell or range of cells
-

Ie - if number is 123 it becomes 1230

Thanks