Alles Gross / alles klein

mit folgendem Makro schaffe ich es, daß in einer bestimmten Spalte alles "groß" geschrieben wird - hier Spalte C:

Sub Gross()
Dim I As Long
Dim Letzte As Long
If [C65536] = "" Then
Letzte = [C65536].End(xlUp).Row
Else
Letzte = 65536
End If
For I = 1 To Letzte
Cells(I, 3) = UCase(Cells(I, 3))
Next I
End Sub

Wie kann ich nun erreichen, daß jeweils nur der Anfangsbuchstabe eines neuen Wortes groß geschrieben wird??

Bin für jede Antwort dankbar.

Gruß

TF