Monica

Multiply by 10?

Sub lime()
Set myrange = Range("A1:A10")
For Each c In myrange
c.Value = c.Value * 10
Next
End Sub

Mike


"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