Private Sub Worksheet_Change(ByVal Target As Range)
If Target.count 1 then exit sub
If Target.Column = 7 then
if Target.Value = "Yes" then
set rng = Target.Offset(-3,-1).Resize(8,4)
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = rng.Height
Selection.Width = rng.Width
Selection.Top = rng.Top
Selection.Left = rng.Left
Selection.Placement = xlMoveAndSize
End if
End if
End Sub

--
Regards,
Tom Ogilvy

"Daniel R. Young" wrote in message
...
I am very new at this. Can you help me a little be more?

Thank you,
dAn

"Toppers" wrote:

Hi,
Consider holding the target address and corresponding ranges in
a
table and using VLOOKUP or INDEX/MATCH. The code would only be a minor
modification to your code below.

VLOOKUP table would be of format

Target Address Data Range
$G$9748 F9745:I9753


HTH

"Daniel R. Young" wrote:

I cannot make it smaller. Here is the code:
If Target.Address = "$G$9748" Then
If Me.Range("G9748").Value = "Yes" Then
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Height = Range("F9745:I9753").Height
Selection.Width = Range("F9745:I9753").Width
Selection.Top = Range("F9745:I9753").Top
Selection.Left = Range("F9745:I9753").Left
Selection.Placement = xlMoveAndSize
End If
End If
This is repeated 176 times with different values. Is there a way to
make it
smaller?

"JM" wrote:

Umm, make it smaller?




"Daniel R. Young" wrote in
message
...
If my procedure is too large what can I do to make it work?

Thank you,

Daniel