Option Explicit
Sub Test()
Dim Rng As Range, T(), L As Long
Set Rng = Selection
' if rng.rows.count=1 then set rng=rng.resize(rng(1000000,1).end(xlup).row - rng.row + 1)
T = Rng.Value
For L = 1 To UBound(T, 1)
If VarType(T(L, 1)) = vbDouble Then T(L, 1) = "'" & Format(T(L, 1), String$(13, "0"))
Next L
Rng.Value = T
End Sub