Macro Error

[Guest]

I have a macro that seems to be unfinished. I want a macro to activate when
a cell = "Yes". The macro will open the my pictures folder for someone to
insert a pic. I modified the macro so the picture will fit in the cells and
be resized. I have two of these macros on the same row but in different
columns. When I run the macro with the frist cell it works fine. The second
one however will place the picture in the first cell that I started with and
open the my picture document a second time. Here is the code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = True
If Me.Range("B186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("A183191").Height
Selection.Width = Range("A183191").Width
Selection.Top = Range("A183191").Top
Selection.Left = Range("A183191").Left
Selection.Placement = xlMoveAndSize
End If
ws_exit:
Application.EnableEvents = True

End Sub


Can someone assist me with this problem?

Thank you,

 

[Guest]

SORRY HERE IS THE CODE:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = True
If Me.Range("$B$186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("$A$183:$D$191").Height
Selection.Width = Range("$A$183:$D$191").Width
Selection.Top = Range("$A$183:$D$191").Top
Selection.Left = Range("$A$183:$D$191").Left
Selection.Placement = xlMoveAndSize

End If

If Me.Range("$G$186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("$F$183:$I$191").Height
Selection.Width = Range("$F$183:$I$191").Width
Selection.Top = Range("$F$183:$I$191").Top
Selection.Left = Range("$F$183:$I$191").Left
Selection.Placement = xlMoveAndSize

End If
ws_exit:
Application.EnableEvents = True

 

[Tom Ogilvy]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = True
If Target.Address = "$B$186" Then
If Me.Range("B186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("A183191").Height
Selection.Width = Range("A183191").Width
Selection.Top = Range("A183191").Top
Selection.Left = Range("A183191").Left
Selection.Placement = xlMoveAndSize
End If
ElseIf Target.Address = "$B$194" then
if me.Range("B194").Value = "Yes" then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("A192200").Height
Selection.Width = Range("A192200").Width
Selection.Top = Range("A192200").Top
Selection.Left = Range("A192200").Left
Selection.Placement = xlMoveAndSize
End if
End If
ws_exit:
Application.EnableEvents = True

End Sub

 

[Tom Ogilvy]

Just adapt my guess to match your specifics.

 

[Guest]

THANKS TOM!!!
I got it with this:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = True
If Target.Address = "$B$186" Then
If Me.Range("B186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("A183191").Height
Selection.Width = Range("A183191").Width
Selection.Top = Range("A183191").Top
Selection.Left = Range("A183191").Left
Selection.Placement = xlMoveAndSize
End If
End If
If Target.Address = "$G$186" Then
If Me.Range("G186").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("F183:I191").Height
Selection.Width = Range("F183:I191").Width
Selection.Top = Range("F183:I191").Top
Selection.Left = Range("F183:I191").Left
Selection.Placement = xlMoveAndSize
End If
End If
ws_exit:
Application.EnableEvents = True

End Sub