Code:
Sub Dropdown1_Change()
Dim s As String 
Select Case Cells(1, 1).Value 
Case 1 
    s = "C:\1.jpg" 
Case 2 
    s = "C:\2.jpg" 
End Select 
ActiveSheet.Pictures.Insert s
End Sub
Can anyone make this code any simpler for having a ComboBox with pictures.

Thanx,

Greyskull