Greetings- I am new to the forum and want to thank you in advance for any assistance.
I am in need of having two work sheet changes. Macro 1 work be controlled by cell "C6" and insert the corresponding picture in "D16". Macro 2 would be controlled by cell "C39" and insert the corresponding picture in "D48". Here is the first Macro that is working:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("C6") Then Exit Sub
Dim Pic As Picture
On Error Resume Next
Set Pic = Me.Pictures(Target.Text)
On Error GoTo 0
If Not Pic Is Nothing Then
Me.Pictures.Visible = False
With Me.Pictures(Target.Text)
.Visible = True
.Top = Range("D16").Top
.Left = Range("D16").Left
End With
Else
MsgBox "Item " & Target.Text & " does not exist...", vbExclamation, "Picture Item"
End If
End Sub
I now need to add the second macro to work on the lower have off the worksheet in the cell I stated above.
Many thanks for all your assistance