Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" And Target.Count = 1 Then
On Error Resume Next
Sheets("To Customers").Select
ActiveSheet.Shapes("monimage").Delete
On Error GoTo 0
If Target <> "" Then
Sheets("Brand picture").Shapes(Target).Copy
Sheets("To Customers").Select
Range("$A$2").Select
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = ActiveCell.Left
Selection.ShapeRange.Top = ActiveCell.Top
Target.Select
End If
End If
End Sub