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