Macro via hyperlink naar foto

[wall]

Beste........

Ik heb ik excel een artikelbestand.

Kolom a zijn artikelnummers.
in een map heb ik foto`s van de artikelen, de naam van de foto`s is het artikelnummer.

Is het nu mogelijk om via een macro elk nummer in kolom A middels een hyperlink naar desbetreffende foto te laten toewijzen?

Ik heb al wat geprobeerd op te nemen en krijg onderstaand, maar dat is maar voor 1 cel.

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 17-1-2010 door wall.
'

'
    Range("A222").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="114951.JPG"
End Sub

 

[Wigi]

Sub Macro1()

    Dim r As Range
    
    For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))
        r.Parent.Hyperlinks.Add Anchor:=r, Address:="C:\" & r.Text & ".JPG"
    Next
    
End Sub

 

[wall]

Sub Macro1()

    Dim r As Range
    
    For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))
        r.Parent.Hyperlinks.Add Anchor:=r, Address:="C:\" & r.Text & ".JPG"
    Next
    
End Sub

Dank u t werkt, scheelt 92000 keer een linkverwijzing maken

 

[wall]

Sub Macro1()

    Dim r As Range
    
    For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))
        r.Parent.Hyperlinks.Add Anchor:=r, Address:="C:\" & r.Text & ".JPG"
    Next
    
End Sub

Tijdje laterder..................................en hoop gerommel

Er zijn inmiddels nieuwe nummers in kolom a bijgekomen, van deze nieuwe items is geen foto.

Is er een mogelijkheid om te controleren welk artikelnummer in kolom a nog niet gelinkt is aan een foto?

Vast bedankt