Need macro to assign two digit numbers to selected cells in Excel 2016

Sub ChangeCellContents()
Dim lr As Long, i As Long
Dim rng As Range, cell As Range
lr = ActiveSheet.UsedRange.Rows.Count
Set rng = Range("A1:A" & lr)
i = 1
For Each cell In rng
    cell = Evaluate("TEXT(ROW(A" & i & "),""00. "")") & cell
    i = i + 1
Next cell
End Sub

Select allOpen in new window