For Each icell In Selection
        If IsNumeric(icell.Value) Then icell.Value = "'" & icell.Value
    Next

' Заменить все фрагменты типа #.# или #,# или # на символ ReplaceBy
Sub ReplaceNums()
  Const ReplaceBy = "X" ' <-- символ замены каждой серии цифр
  Dim a, c&, r&, Rng As Range
  Set Rng = ActiveSheet.UsedRange
  ' Считать диапазон в VBA-массив
  a = Rng.Value
  ' Произвести замены в массиве
  With CreateObject("vbscript.regexp")
    .Global = True
    ' Задать шаблон: Цифра(ы) ЗапятаяИлиТочка Цифра(ы) ИЛИ Цифра(ы)
    .Pattern = "(\d+[,.]\d+)|(\d+)"
    ' Заменить по шаблону
    For r = 1 To UBound(a, 1)
      For c = 1 To UBound(a, 2)
        Select Case VarType(a(r, c))
          Case 2 To 6: a(r, c) = ReplaceBy  ' Числовые ячейки, на всякий случай
          Case 8:      a(r, c) = .Replace(a(r, c), ReplaceBy)
        End Select
      Next
    Next
  End With
  ' Переписать исправленный массив в диапазон
  Rng.Value = a
End Sub

    ' Заменить по шаблону
    For r = 1 To UBound(a, 1)   ' В каждой строке
      For c = 1 To UBound(a, 2) ' И каждом столбце
        ' Если тип значения - текстовый, то выполнить замену
        If VarType(a(r, c)) = vbString Then a(r, c) = .Replace(a(r, c), ReplaceBy)
      Next
    Next