Hi,
My objective is to change the first letter of a list of bullets to uppercase. I have tried both the selection and range functions to do this. The problem is that the while loop seems to not be looping. I may be missing something obvious, but I am just not seeing it. Advice/guidance appreciated!

Thanks, Martin


Sub test2()

Selection.HomeKey wdStory
CapitaliseFirstChar ("List Bullet")

End Sub



Sub CapitaliseFirstChar(Style As String)

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

With Selection.Find
.Text = SearchString
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Style = ActiveDocument.Styles(Style)
End With

Selection.Find.Execute
While Selection.Find.Found
Selection.Select
Set oRng = Selection.Range
oRng.Characters(1) = UCase(oRng.Characters(1))
Wend

End Sub