I have this code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s
'--
Sheets("status").Shapes(Application.Substitute(Target, " ", "")).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 7
Selection.ShapeRange.Top = ActiveCell.Top + 5
Target.Select
End If
End Sub
This returns an image once a value is selected from a validation list. The only problem is that the image always appears to the right of the cell with the validation. I need it to return the image in the cell below.
Can anyone help???
Thanks in advance.
Emma x
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s
'--
Sheets("status").Shapes(Application.Substitute(Target, " ", "")).Copy
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 7
Selection.ShapeRange.Top = ActiveCell.Top + 5
Target.Select
End If
End Sub
This returns an image once a value is selected from a validation list. The only problem is that the image always appears to the right of the cell with the validation. I need it to return the image in the cell below.
Can anyone help???
Thanks in advance.
Emma x