A VBA solution. Copy and paste the following code into a standard module:

Option Explicit

Sub sFindVLookup()

Dim cell As Range
Dim rFormulaRange As Range
Dim ws As Worksheet
Set ws = Sheets("Sheet1")

With ws
    For Each cell In .UsedRange
        If InStr(1, cell.Formula, "VLOOKUP") > 0 Then
            If rFormulaRange Is Nothing Then
                Set rFormulaRange = cell
            Else
                Set rFormulaRange = Union(rFormulaRange, cell)
            End If
        End If
    Next 'cell
End With

If Not rFormulaRange Is Nothing Then
    Debug.Print rFormulaRange.Address
    MsgBox rFormulaRange.Address
End If

End Sub

It will display all the cell addresses both in the Immediate Window (which you can copy and paste) and in a Message Box.

Regards, TMS