zoeken met vba

[bascas]

Hallo helpers, ik in bijgevoegd bestandje heb ik 2 zoekfunctie's met hulp van jullie gemaakt. Maar... het lukt me niet om een 3e zoekfunctie te maken. DE bedoeling is als je in F4 een getal uit kolom A invult je direct naar dat tabblad gaat van dat betreffende nummer.

Groeten Bas

 

[Cobbe]

Zou het zo voldoende zijn?

 

[Warme bakkertje]

ElseIf Not Intersect(Target, Range("F4")) Is Nothing And Target <> "" Then
        Application.Goto Sheets(CStr(Target.Value)).Range("A1")

 

[bascas]

Bedankt Cobbe, maar heb je enig idee hoe het nu komt dat excel even moet wachten. Ik weet niet zo goed hoe ik het uit moet leggen, maar na de invoer gaat de cursor even knipperen alvorens hij het gevraagde tabblad toont. Een soort vertraging.

Gr Bas