To have proper case in certain cells if there is text in it

I want to have the VBA put text in proper case (First letter capitalized)
in cells "D11" "F11" "H11" "J11"
IF there is any text filled in them

Thanks!

Sub NewName()
    Sheets("SetupName").Activate
End Sub