La función VBA de UCASE convierte una cadena de caracteres a mayúsculas.
UCase(texto)
Convertir una cadena a mayúsculas:
Sub UCaseExample()
text = "Ref-45-X-876-rt"
text = UCase(text)
MsgBox text 'Devoluciones: REF-45-X-876-RT
End Sub