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