Mark,

The sub below will search all files in the specified folder for the word href.  It will write the
filenames and lines out to the active worksheet.

HTH,
Bernie
MS Excel MVP

Sub CheckTextFilesForHREFs()
Dim WholeLine As String
Dim myPath As String
Dim workfile As String
Dim myR As Long

myPath = "C:\Excel\Text Files\"
workfile = Dir(myPath & "*.txt")

Do While workfile <> ""
  Open myPath & workfile For Input Access Read As #1
     While Not EOF(1)
     Line Input #1, WholeLine
     If InStr(1, WholeLine, "href") > 0 Then
        myR = Cells(Rows.Count,1).End(xlUp).Row + 1
       Cells(myR,1).Value = workfile
       Cells(myR,2).Value = WholeLine
     End If
  Wend
  Close #1
  workfile = Dir()
Loop

End Sub