A função VBA do UCASE converte uma string de caracteres em maiúsculas.
UCase(texto)
Convertendo uma string para maiúscula:
Sub UCaseExample()
text = "Ref-45-X-876-rt"
text = UCase(text)
MsgBox text 'Devoluções: REF-45-X-876-RT
End Sub