Hi Casey,

I can't remember that I ever needed a duplicate of a range.
Seems to me, it overcomplicates things.

Can't write an essay on how to handle ranges,
right here and now.

But have a look at the line I marked.

I changed variables name to what I am used to.

Sub FindAndReplaceWithHypertext()
Dim rRpl As Range     ' range replace
Dim rFnd As Range     ' range found
Dim sFnd As String    ' string to be found
Dim sHpl As String    ' hyperlink
Dim sDsp As String    ' hyperlink display
   
sFnd = "August"
sHpl = "c:\test\test.doc"
sDsp = "August"

Set rRpl = ActiveDocument.Range
ResetSearch
With rRpl.Find
  .Text = sFnd
  .Wrap = wdFindStop
   Do While .Execute
      Set rFnd = rRpl.Duplicate
      rFnd.Text = vbNullString
      ActiveDocument.Hyperlinks.Add _
      rFnd, sHpl, TextToDisplay:=sDsp
      rRpl.Select ' <<<<<<<<<<<<<<<<<<<<<<<
      rRpl.Collapse wdCollapseEnd
    Loop
End With
ResetSearch
End Sub

And this is the way I would do it:

Sub FindAndReplaceWithHypertextImproved()
Dim rDoc As Range     ' range replace
Dim sFnd As String    ' string to be found
Dim sHpl As String    ' hyperlink
Dim sDsp As String    ' hyperlink display
   
sFnd = "August"
sHpl = "c:\test\test.doc"
sDsp = "August"

Set rDoc = ActiveDocument.Range
ResetSearch
With rDoc.Find
  .Text = sFnd
  .Wrap = wdFindStop
   Do While .Execute
      ActiveDocument.Hyperlinks.Add _
      rDoc, sHpl, TextToDisplay:=sDsp
      rDoc.End = rDoc.End + Len(sDsp) ' !!!
      rDoc.Collapse wdCollapseEnd     ' !!!
      ' be the master of the range
    Loop
End With
End Sub
' ---
Public Sub ResetSearch()
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute
End With
End Sub

HTH