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