[VB] Excel - .FIND met hyperlinks

[Jay-P]

Ok ik begin door de bomen het bos niet meer te zien, wat ik wil is het volgende;
ik heb 2 lijsten met namen waarvan er 1 de hyperlinks bevat, deze wil ik kopieren naar de andere lijst zodat deze ook hyperlinks heeft.

code:

  Dim HYPlink As Hyperlink
  Dim gevondencel As Range
  Dim firstaddress As String
  
     
Worksheets(3).Activate
          
For Each HYPlink In ActiveSheet.Hyperlinks
    
    Worksheets(2).Activate
    
        With Worksheets(2).Range("J1:J90")
         Set gevondencel = .Find(what:=HYPlink.TextToDisplay, LookIn:=xlValues)
         
            If Not gevondencel Is Nothing Then
            firstaddress = gevondencel.Address
            Do
                gevondencel.Hyperlinks.Add Anchor:=Selection, Address:=HYPlink.Address, TextToDisplay:=HYPlink.TextToDisplay
              
' Debug.Print HYPlink.TextToDisplay
   
                Set gevondencel = .FindNext(gevondencel)
            Loop While gevondencel.Address <> firstaddress
  End If
End With
Next

Ik krijg hem hier dus niet mee aan de praat, hij past alleen de geselcteerde cel in het blad aan, ik heb nu al een tigtal opties geprobeerd met gemengde resultaten, ik kom er maar niet achter waar de fout zit, ben er nu al mischien te lang op aan het staren, hopelijk kan iemand me even op mijn fout wijzen.

[whoami]

Dit is excel specifiek, en VBA, dus dit hoort eerder in office systemen thuis.
-> OFF