I am trying to create a drop down list which has pictures and not text. I have copied the VBA below from another thread but cannot add other images. I have changed the path to where my images are stored. The comment says add images 2 to 5 but I am not that familiar with VBA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
Select Case Target.Column
Case Is = 1
ImageDropDown.Image1.Picture = LoadPicture("C:\droptest\1.jpg")
'Add Images 2 to 5


ImageDropDown.Show
Select Case RtnVal
Case Is = "Image1"
ActiveSheet.Pictures.Insert("C:\droptest\1.jpg").Select
'Add Images 2 to 5

End Select

Selection.Width = Target.Width
Selection.Top = Target.Top
Selection.Left = Target.Left


End Select

End Sub