Sub Find_vs_Array()
    Dim iTimer, avArr, lr As Long, lc As Long, rFndRng As Range
    With Range("A1:AA65536")
        .Formula = "=Row()&Column()"
        .Value = .Value
        avArr = .Value
    End With
    iTimer = Timer
    Set rFndRng = ActiveSheet.UsedRange.Find( 6554023 , , xlValues, xlWhole)
    MsgBox "Время выполнения методом Find: " & Timer - iTimer
    iTimer = Timer
    For lr =  1  To  65536 
        For lc =  1  To  27 
            If avArr(lr, lc) =  6554023  Then
                Exit For
            End If
        Next lc
    Next lr
    MsgBox "Время выполнения wbrkjv: " & Timer - iTimer
End Sub