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

[Manonia]

Добрый день! Срочно понадобилось написать макрос, чем я до этого никогда не занималась, прошу вашей помощи. Макрос кажется не сложный:
он должен добавить дефис "-" после пятой цифры (и только после нее) в диапазоне A3-A15. Данные в целевых ячейках длиной 10-12 символов, a-Z,0-9.

Спасибо!

[SAS888]

Т.е. данные в ячейках - это "смесь" цифр и букв, а дефис нужен после 5-й цифры (не зависимо от количества букв)? Или не так?

[Manonia]

SAS888, да, именно так - только после цифры

[SAS888]

Например, так:

Sub Main()
    Dim cell As Range, i As Integer, j As Integer
    For Each cell In [A3:A15]
        j = 0
        If Len(cell) > 5 Then
            For i = 1 To Len(cell)
                Select Case Asc(Mid$(cell, i, 1))
                Case 48 To 57
                    j = j + 1
                    If j = 5 Then
                        cell.Value = Left$(cell, i) & "-" & Mid$(cell, i + 1)
                        Exit For
    End If: End Select: Next: End If: Next
End Sub

[Manonia]

Большое Вам спасибо, SAS888, всё отлично работает =)