Зачем оставлять неправильный пример? Свои сообщения можно редактировать, в том числе удалять/добавлять файлы. Название темы плохое - невозможно понять задачу. Что должен делать макрос? Предложите новое - модераторы поменяют.
название темы: выбрать из текста все отдельные пары заглавных латинских букв
ответ:
Код
Function FindAB$(a As Range, b As Range)
Dim re, ms, m, s$
Set re = CreateObject("VBScript.RegExp"): re.Global = True
re.Pattern = "\W([A-Z]{2})\W": s = a & " " & b
If re.Test(s) Then
Set ms = re.Execute(s)
For Each m In ms: FindAB = FindAB & "-" & m.SubMatches(0): Next
End If
If Len(FindAB) Then FindAB = Right(FindAB, Len(FindAB) - 1)
End Function