Macro para poner MAYÚSCULAS en ciertas palabras

Necesito que me ayuden con una MACRO. Tengo este código

Application.EnableEvents = False
For Each Celda In Target
If Not Intersect(Celda, Range("D3:D12500")) Is Nothing Then
If Celda.Value = Empty Then GoTo ExitSub
Celda.Value = UCase(Celda.Value)

Me sirve para pasar las forzar las MAYÚSCULAS, lo que no se es como modificarla para que se aplique a ciertas palabras.