Find two strings in a range select cells in between and loop through range

Hi

I am using the below code to Find two strings in column A and select the cells between them.

I would like to loop through the entire range as the two strings appear more than once.

Sub SelectBetween()
  On Error GoTo errhandler
  
  Dim fOne As String
  Dim fTwo As String
   fOne = "First"
   fTwo = "Second"
  
  Range(Range("A:A").Find(fOne).Offset(0), Range("A:A").Find(fTwo, Range("A:A").Find(fOne)).Offset(-2)).Select
 Dim myrng As Range
 Set myrng = Selection
With myrng.Font
  .Bold = True
   End With


  Exit Sub
errhandler:
  MsgBox "No Cells containing specified text found"
End Sub

Thanks for any assistance

Jeff