Wortanfäng groß mit Ausnahmen

Function in groß geschriebene Wortanfänge ändern.
Das funktioniert auch gut, bis zum ersten .Proper – es wird sauber umgeformt aber ...
Es gibt Ausnahmen, die klein geschrieben bleiben müssen.
Z. B.  ‚Hans-Dieter auf dem Kampe’, Jürgen von der Lippe’ usw.
Hierfür habe ich ein Tabellenblatt mit Ausnahmen definiert, die sogenannte ‚NegativListe’.
Wie muss der zweite Teil der Funktion (der Replace) aussehen, damit das durchgeführt wird?
Die NegativListe muss durchlaufen werden und gegen die Eingabe verglichen werden und dann muss ein Replace erfolgen. Ich habe versucht, ein Makro von Hans dafür zu verwenden, aber als 

Function will das nicht so ganz funktionieren.
Aufruf der Function:
iZeile = Cells(Rows.Count, 1).End(xlUp).Row
For iIndx = 1 To iZeile
Range("A" & iIndx).Value = WortanfangGross(Range("A" & iIndx).Value)
Next iIndx
Später soll das dann für diverse TextBoxes eingesetzt werden.
UserForm1.TextBox1.Text = WortanfangGross(UserForm1.TextBox1.Text)
Die Function:

Function WortanfangGross(Feldinhalt As String)
Dim iRowL  As Integer
Dim iRow   As Integer
If Not IsEmpty(Feldinhalt) Then
WortanfangGross = WorksheetFunction.Proper(Feldinhalt)
With Worksheets("NegativListe")
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
Columns(1).Replace _
WorksheetFunction.Proper(WortanfangGross), _
Range("A" & iRow).Value
Next iRow
End With
End If
End 

Function
Für eine (besser) laufende 

Function schon jetzt vielen Dank im voraus.
Gruß, Peter