Помогите в строке EXCELя найти цифры и сделать их жирными

[Wasili4]

Есть проблемка, в ценниках строки (наименования товара), где попадаются цифры веса или объема сделать их (цифры) жирными и большими. Сейчас работает как библиотека сыпучки, но чувствую можно сделать универсально- не знаю как, дистр. прилагаю. Адрес куда закинуть файл cenn.bak в первой строке модуля. Помогите пожалуйста.

[EducatedFool]

Sub BoldingDigits(ByRef ra As Range)
    Dim cell As Range
    For Each cell In ra.Cells
        For i = 1 To cell.Characters.Count
            letter = cell.Characters(Start:=i, Length:=1).Text
            cell.Characters(Start:=i, Length:=1).Font.Bold = IsNumeric(letter)
        Next
    Next cell
End Sub

Sub ПримерИспользования()
    BoldingDigits [a2:d6]
    BoldingDigits Range("d32")
    BoldingDigits Range("d34:f45")
    BoldingDigits Cells(1, 3)
End Sub

дистр. прилагаю

Так и не понял, что Вы там прикрепили к сообщению...
(почему модуль надо было выкладывать отдельно от файла)

[Wasili4]

В самом файле еще куча других модулей

[Wasili4]

Огромное человеческое СПАСИБО!!!

[Wasili4]

А подскажите как размер шрифта цифр изменить.

[EducatedFool]

Sub BoldingDigits(ByRef ra As Range)
    Dim cell As Range
    For Each cell In ra.Cells
        cell.Font.Bold = False: cell.Font.Size = 10: cell.Font.ColorIndex = 0    ' по умолчанию
        For i = 1 To cell.Characters.Count
            letter = cell.Characters(Start:=i, Length:=1).Text
            If IsNumeric(letter) Then    ' для цифр
                cell.Characters(Start:=i, Length:=1).Font.Bold = True ' жирный шрифт
                cell.Characters(Start:=i, Length:=1).Font.Size = 12 ' размер шрифта
                cell.Characters(Start:=i, Length:=1).Font.Color = vbRed ' цвет шрифта
            End If
        Next
    Next cell
End Sub

Sub ПримерИспользования()
    BoldingDigits [a2:d6]
    BoldingDigits Range("d32")
    BoldingDigits Range("d34:f45")
    BoldingDigits Cells(1, 3)
End Sub