Thread: Macro Error
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Daniel R. Young Daniel R. Young is offline
external usenet poster
 
Posts: 38
Default Macro Error

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("A183:D191").Height
Selection.Width = Range("A183:D191").Width
Selection.Top = Range("A183:D191").Top
Selection.Left = Range("A183:D191").Left
Selection.Placement = xlMoveAndSize
End If
ws_exit:
Application.EnableEvents = True

End Sub


Can someone assist me with this problem?

Thank you,