utilizzare cerca.vert in VBA

Question

buongiorno a tutti, tengo a precisare che il mio livello di conoscenza di VBA è poco più del basic.

sto cercando di realizzare una macro che possa essere utilizzata da più colleghi in caso di mia assenza.

l'obiettivo della macro è quello di verificare se i dati presenti nell'ultimo file ricevuto, sono presenti in quello precedente. ebbene, arrivato quasi alla fine, mi compare l'errore RUN TIME 13 - Tipo non corrispondente.

riporto di seguito le definizioni e l'istruzione che va in errore:

    Dim Nome, Percorso, NomeCompleto
    Dim fDialog As Office.FileDialog
    Nome = ActiveWorkbook.Name
    Percorso = ActiveWorkbook.Path
    NomeCompleto = ActiveWorkbook.FullName
...

...

...

'--->> Mi preparo dove cercare
    Set wb2 = Workbooks.Open(FileDaAprire) <<--- cambia ad ogni estrazione
    Set ws2 = wb2.Worksheets("Sheet1")
    Application.Goto ws2.Range("B2")
    'Range("B2").Select
    Set intervallo = ws2.Range(Selection, Selection.End(xlDown)).Select <<---- ISTRUZIONE IN ERRORE
    
'--->> Mi preparo cosa cercare
    Set wb1 = Workbooks.Open(Nome) <<--- file in lavorazione
    Set ws1 = wb1.Worksheets("Foglio2")

    ws1.Range("F2").Select
           ActiveCell.FormulaR1C1 = _
               "=VLookup(sh1, intervallo, 1,0)"

...

...

...

END SUB

grazie a tutti