Prefix number with '

And for the sake of demo'ing the Eval method:

Sub RoundSelection()
Dim rngArea As Range
For Each rngArea In Selection.SpecialCells(xlCellTypeConstants).Areas
    With rngArea
        .NumberFormat = "@"
        .Value = Evaluate("IF(ISNUMBER(--(" & .Address & ")),ROUND(" & .Address & ",2),REPT(" & .Address & ",1))")
    End With
Next rngArea
End Sub

if you want the apostrophe as opposed to just storing as text - remove the NumberFormat line and use ""'""&ROUND(...)