¿Como convinar Ucase y Proper en Worksheet_Change?

Tengo este código que funciona a la perfección:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("C6:G5006,i6:i5006,s6:s5006,w6:w5006,aa6:aa5006,ad6:ar5006")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
'Set the values to be uppercase
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub

El tema esta en como incluir en este código que el rango H6:H5006 debe cambiarlo al formato de la primera letra de cada palabra en mayúsculas y el resto en minúsculas.

¿Se os ocurre alguna manera?

Gracias de antemano.