I have built a macro that will take a clipart picture and post it to a
spacific cell in my worksheet. This is so that the formular used in that
cell will make the macro show the proper picture. I have built on the
worksheet a pictable and names the table. BUT the thing will not work. I
did this back in 2005 but I cannot remember. Below is the macro i built, an
example for the formular for the cell, and a example for the pictable...WHAT
AM I MISSING....do I need to name the picture...I know that there has to be
one thing i have missed...THANKS A LOT FOR YOUR HELP

Sub picture1()
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Dim myCell As Range
Dim myRng As Range

Set myRng = Me.Range("cc37,CE37")

Me.Pictures.Visible = False
For Each myCell In myRng.Cells
With myCell
For Each oPic In Me.Pictures
If LCase(oPic.Name) = LCase(.Text) Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
End If
Next oPic
End With
Next myCell

End Sub
A B
PicTable 1 Picture
Tireman1 Picture 33 (20)
Tireman2 Picture 20
Tireman3 Picture 14
Carlift1 Picture 11
Carlift2 Picture 28
Carlift3 Picture 26
Carlift4 Picture 27
Total1 Picture 31
Total2 Picture 20
Total3 Picture 30

This formular is placed in cell cc37
=vlookup(A20,PicTable1,2,FALSE)

To print picture 33