Zip is just a compressed file (it just reduces the file size). This saves space for the site and also makes it faster for people to download.

Give this macro a try.

Option Explicit

Sub LineSearchTESTA1(Optional SearchVal As String)
Dim MyValue         As String
    Dim MyFindNext      As Long
    Dim sht             As Worksheet
    Dim Ans             As Long
    Dim FirstAddress    As String
    Dim Cel             As Range
    Dim Counter         As Long
If SearchVal = "" Then
        MyValue = InputBox("Company Name", "FAX / E-MAIL DATABASE")
    Else
        MyValue = SearchVal
    End If
    If MyValue = "" Then
        [C3].Select
        Exit Sub
    End If
    For Each sht In Sheets(Array("A", "B", "C"))
        With sht
            sht.Activate
            Set Cel = .Columns(3).Find(What:=MyValue)
            MyFindNext = vbYes
            If Not Cel Is Nothing Then
                FirstAddress = Cel.Address
                Do
                    Counter = Counter + 1
                    Cel.Activate
                    MyFindNext = MsgBox("Next " & MyValue & "?", vbYesNo, "Find Next")
                    Set Cel = .Columns(3).FindNext(Cel)
                Loop While Not Cel Is Nothing And _
                Cel.Address <> FirstAddress And _
                MyFindNext = vbYes
            End If
        End With
        If MyFindNext = vbNo Then
            Exit Sub
        End If
    Next
If Counter = 0 Then
        Ans = MsgBox("Search could not find '" & MyValue & "'." & _
        vbNewLine & " " & vbNewLine & _
        "Try another search?", 4, MyValue & " not found")
        If Ans = vbYes Then
            Call LineSearchTESTA1
        End If
    End If
    If MyFindNext = vbYes Then
        Call LineSearchTESTA1(MyValue)
    End If
End Sub