I would love to do what you asked, but I think its better because you have
300 items to do that you learn do to it yourself. I'm not trying to brush
youoff.

You can't change the name of the pcitures. I tried early today. You have
to figure out which picture is associte with each name. I would take the 8
pictures and put them on the main page. Then run the code below. Figure out
which picture is associated with each number.

When you copy each picture onto the main sheet copy the one you want as 1
first, then 2 second, etc.

If we still have problems I will send you my e-mail address. I don't think
it is going to be hard.

Sub visablepicture()

Picturenumber = Val(InputBox("enter Picture Number: "))
For i = 1 To 8
If Picturenumber = i Then
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = True
Else
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = False
End If
Next i

End Sub



"Confused at Work" wrote:

Joel, I need more help with this. Could I send you the file? Im not sure
how to put names on the pictures, and I have 300 invoice sheets to do it on
too. Thanks.

"Joel" wrote:

I would do something a little different than what you are trying. Put all
the pictures on the main worksheet. Then make them visible of invisible.
Try code like this

Sub visablepicture()

Picturenumber = Val(InputBox("enter Picture Number: "))
For i = 1 To 8
If Picturenumber = i Then
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = True
Else
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = False
End If
Next i

End Sub


"Confused at Work" wrote:

Joel, in english please. SOrry. I have multiple logos, and they are
numbered 1 to 8. If they choose #1 then I type it in at the top it brings up
their name and I want it to bring up their logo at the bottom which is on a
nother worksheet. But I dont know how to get that logo to come up
automatically.


"Joel" wrote:

I always have problems with getting picture names as long as other shapes.
Try using this code to help you get the names of the obbjecs

Sub test()
For Each myshape In Worksheets("Sheet1").Shapes
MsgBox (myshape.Name)
Next myshape

End Sub

Then you'll know the names of the pictures.

"Confused at Work" wrote:

Just wondering I have multiple worksheets and on the main worksheet screen is
my invoice page, all the rest is programming related. Now depeneding on the
customer I want them to be able to click on a number and then their logo come
onto the page at the bottom of the screen. I have the logos set on a
different page, but just can convert them over to the main page. I think it
has something to do with the cells, I cant make my picture into one cell, its
always picture #1 or picture #2. Any suggestions or help with this one?