meerdere hyperlinks in één keer invoeren

[josepasschier]

Ik zal even uitleggen wat ik wil doen en me maar niet lukt.
Ik heb een Excel bestand met ± 100 regels en daarin een hyperlink die moet verwijzen naar een foto in een ander bestand.
Kortom 100 regels met omschrijvingen van b.v. camera's en 100 (verschillende bijbehorende) foto's. Nu kan ik natuurlijk één voor één de foto's via een hyperlink invoeren maar dat neemt veel tijd in beslag.
Is er een mogelijkheid om dit via een makkelijker manier te doen?
Ik ben er nog niet uitgekomen.

 

[HSV]

Als je de fotonamen in kolom A plaatst en daarna deze code uitvoert heb je je hyperlinks.

De foto's moeten allemaal in dezelfde map staan (hier map 'jose').

Sub hsv()
Dim cl As Range
For Each cl In Columns(1).SpecialCells(2)
 ActiveSheet.Hyperlinks.Add cl, "C:\users\josepaschier\pictures\jose\" & cl & ".jpg"
Next cl
End Sub

Pd. nog familie van Dick?

 

[josepasschier]

hyperlinks

Dank je wel voor je antwoord. Ik ga het proberen.

BTW: Geen familie.