Функция VBA UCASE преобразует строку символов в верхний регистр.
UCase(текст)
Преобразование строки в верхний регистр:
Sub UCaseExample() text = "Ref-45-X-876-rt" text = UCase(text) MsgBox text 'Возвращает: REF-45-X-876-RT End Sub