Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') = 1 Then
Range('B1').Select
Activesheet.Pictures.Insert(''D:\\1.bmp')
End If
If Range('A2') = 1 Then
Range('B2').Select
Activesheet.Pictures.Insert(''D:\\2.bmp')
End If
If Range('A3') = 1 Then
Range('B3').Select
Activesheet.Pictures.Insert(''D:\\3.bmp')
End If
End Sub