ExcelBanter - Picture Problems

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?