Display Image Based On Image Name In Cell

Hi all

I have solved the initial problem with the code below

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") Then Exit Sub
Select Case Target
Case "#1": Image1.Picture = LoadPicture("c:\images\1.bmp")
Case "#2": Image1.Picture = LoadPicture("c:\images\2.bmp")
Case "#3": Image1.Picture = LoadPicture("c:\images\3.bmp")
End Select
End Sub