Creare un immagine Active X che varia a seconda delle cella Selezionata.

Funziona :P !!!

Estrapolando da altre letture avevo risolto così:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ur As Long
Dim myPath As String
myPath = "c:\Foto\"
ur = Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("a1:a" & ur)) Is Nothing Then
If Dir(myPath & Target.Value & ".jpg") <> "" Then ' se la foto esiste
Worksheets("Foglio1").Image1.Picture = LoadPicture(myPath & Target.Value & ".jpg")
Else
Worksheets("Foglio1").Image1.Picture = LoadPicture(myPath & "workinprogress.jpg")
End If
End If

End Sub



Alla fine è la stessa soluzione :P !!!

Grazie per il supporto...assolutamente fondamentale!!.