Gee glad to be of help....

anyhow you can also loop through them and test the name of all pictures
but that is not very efficient if you have a lot of pictures.

Sub FindPic()
Dim pic1
For Each pic1 In ws.Pictures
If pic1.Name = "DB_LOGO_1" Then _
Set picDB = pic1
Next

Charles

P.S. What's with all the rude posters lately?
Kevin McCartney wrote:
Thats just cheesy coding

"Die_Another_Day" wrote:

On Error Resume Next
Set picDB = ws.Pictures("DB_LOGO_1")
If picDB is Nothing Then
'Does Not Exist
End If
On Error Goto 0

Charles

Kevin McCartney wrote:
I have the followinf code

Set picDB = ws.Pictures("DB_LOGO_1")

but if the worksheet does not contain the logo then I get an error,
therefore how can I check if the picture exists before I try to set picDB to
it?

TIA
KM