Sub FindBackCase()
' Paul Beverley - Version 09.01.21
' Next case-sensitive find backwards

Selection.End = Selection.Start
hereNow = Selection.Start
With Selection.Find
  .Wrap = wdFindStop
  .Forward = False
  .MatchCase = True
  .Execute
End With

If Selection.Start = hereNow Then
  If Selection.Find.Found = False Then Beep
End If
' Leave F&R dialogue in a sensible state
With Selection.Find
  .Forward = True
  .Wrap = wdFindContinue
End With
End Sub