Private Sub Worksheet_Change(ByVal Target As Range)
Dim image As String
If Not Intersect(Target, Range("B7")) Is Nothing Then
If Not Len(Dir(ActiveWorkbook.Path & "\" & Target.Value & ".jpg", vbNormal)) > 0 Then
image = ActiveWorkbook.Path & "\" & "Transparent" & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
Else
image = ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
End If
End If
End Sub