Round function in the same range

[HerryMarkowitz]

Hi vba experts,
I have following macro enclosed file.

Sub Macro1()
Sheets("Sheet1").Range("A2:J2").FormulaR1C1 = "=ROUND(R[-1]C,1)"
Sheets("Sheet1").Range("A2:J2").Copy
Sheets("Sheet1").Range("A1:J1").PasteSpecial Paste:=xlPasteValues
End Sub

Macro above is okey for me but I want to improve it.
I want same thing but new macro will not be use A2:J2 range.
In other words every process will be only in the A1:J1 range.

Best wishes.

[mikerickson]

Try

Dim oneCell as Range

For Each oneCell in Range("A1:J1")
    With oneCell
        .Value = WorksheetFunction.Round(Val(CStr(.Value)), 1)
    End Wiht
Next oneCell

[HerryMarkowitz]

Solved.
Thank you mikerickson.

Sub Macro1()
Dim oneCell As Range
For Each oneCell In Range("A1:J1")
    oneCell.Value = WorksheetFunction.Round(oneCell.Value, 1)
Next oneCell
End Sub