Sub FindFwdCase() ' Paul Beverley - Version 09.01.21 ' Next case-sensitive find forwards Selection.Start = Selection.End hereNow = Selection.End With Selection.Find .Wrap = wdFindStop .Forward = True .MatchCase = True .Execute End With myStart = Selection.Start If Selection.Start = hereNow Then If Selection.Find.Found = False Then Beep End If ' Now leave F&R dialogue in a sensible state With Selection.Find .Wrap = wdFindContinue .Forward = True End With End Sub