Zin laten beginnen met een hoofdletter

[HWV]

Beste,

Ik heb een excel bestand met in een cel meerdere woorden IN HOOFDLETTERS:

DIT IS EEN TEST VOOR HOOFDLETTERSQUOTE]

Nu zou ik willen dat enkel de eerste zin met een hoofdletter begin.
Het is een bestand van ongeveer 12000 regels dus wil ik het graag met VBA doen
Als ik de code gebruikt zoals hieronder dan maakt hij er het volgende van:

Dit Is Een Test Voor Hoofdletters.

Sub BeginHoofdletter () 
For Each cl In Blad1.Cells.SpecialCells(2)
        cl.Value = StrConv(cl, vbProperCase)
    Next
End Sub

Welke VBA code kan ik gebruiken om enkel maar de zin te laten beginnen met een hoofdletter.:

Dit is een test voor hoofdletters.

Alvast bedankt voor de genomen moeite

HWV

 

[snb]

Sub BeginHoofdletter () 
    For Each cl In Blad1.Cells.SpecialCells(2)
        cl.Value = ucase(left(cl.value,1)) & lcase(mid(cl.value,2))
    Next
End Sub

 

[HWV]

Zeer snel

Beste SNB,

Bedankt voor het meedenken, en voor het aandragen voor de oplossing van mijn vraag.
Het werkt snel, en de zinnen beginen op deze manier met een hoofdletter.

Bedankt,

HWV