VBA in Excel für Mac 2010: Wie wird das erste Wort jeder Zelle in einer Auswahl großgeschrieben?

```vb Sub ErstesWortGrossInAuswahl() Dim c As Range Dim s As String Dim p As Long For Each c In Selection.Cells If Not IsError(c.Value) Then s = CStr(c.Value) s = Trim$(s) If Len(s) > 0 Then ' erstes Wortende (Leerzeichen) suchen p = InStr(1, s, " ") If p = 0 Then ' nur ein Wort s = UCase$(Left$(s, 1)) & Mid$(s, 2) Else ' erstes Wort s = UCase$(Left$(s, 1)) & Mid$(s, 2, p - 1) & Mid$(s, p) End If c.Value = s End If End If Next c End Sub ```