Sub FindBack()
' Paul Beverley - Version 16.06.23
' Next find backwards

Set rng = Selection.Range.Duplicate
Selection.Collapse wdCollapseStart
With Selection.Find
  .Wrap = wdFindStop
  .Forward = False
  .MatchCase = False
  If InStr(.Text, "]") + InStr(.Text, "<") + _
       InStr(.Text, ">") > 0 Then .MatchWildcards = True
  .Execute
' Leave F&R dialogue in a sensible state
  .Wrap = wdFindContinue
  .Forward = True
End With

If Selection.Find.Found = False Then
  Beep
Else
  If Selection.Start = rng.Start Then
    rng.Select
    Beep
    myTime = Timer
    Do
    Loop Until Timer > myTime + 0.2
    Beep
    StatusBar = "Sorry, Word's Find facility is playing sillies!"
  Else
    Set rng = Selection.Range.Duplicate
    Selection.Collapse wdCollapseStart
    Selection.MoveDown , 1
    rng.Select
  End If
End If
End Sub