Add multiple pop up picture comment

[BillyKit]

I tried to add multiple pictures to multiple cells using the following add comment macro. It works perfectly when there are images in pictures1 folder that correspond to the values in the selected cells.There are instances where some images are not in the folder and the macro will return an error. What lines of code do I need to add to force it to skip those cells and continue to add comment to the next cell. Thank you.

Sub Addpic()
For Each cell In Selection
MyPic = "C:\Pictures1\" & cell.Value
With cell.AddComment
.Shape.Fill.UserPicture MyPic
.Shape.Height = 300
.Shape.Width = 300
End With
Next cell
End Sub

 

[lenze]

Hi and welcome to the board!!
Have you tried?

On Error Resume Next

lenze

 

[Jon von der Heyden]

Or you could test that the picture actually exists in the directory:

[COLOR=blue]Public[/COLOR] [COLOR=blue]Function[/COLOR] ValidDir([COLOR=blue]ByVal[/COLOR] strPath [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]) [COLOR=blue]As[/COLOR] [COLOR=blue]Boolean[/COLOR]
    [COLOR=blue]If[/COLOR] [COLOR=blue]Len[/COLOR](strPath) = 0 [COLOR=blue]Then[/COLOR]
        ValidDir = [COLOR=blue]False[/COLOR]
        [COLOR=blue]Exit[/COLOR] [COLOR=blue]Function[/COLOR]
    [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
    ValidDir = [COLOR=blue]Len[/COLOR]([COLOR=blue]Dir$[/COLOR](strPath)) > 0
[COLOR=blue]End[/COLOR] [COLOR=blue]Function[/COLOR]
 
[COLOR=blue]Sub[/COLOR] Addpic()
    [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] cell [COLOR=blue]In[/COLOR] Selection
        MyPic = "C:\Pictures1\" & cell.Value
        [COLOR=blue]If[/COLOR] ValidDir(MyPic) [COLOR=blue]Then[/COLOR]
            [COLOR=blue]With[/COLOR] cell.AddComment
            .Shape.Fill.UserPicture MyPic
            .Shape.Height = 300
            .Shape.Width = 300
            [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
    [COLOR=blue]Next[/COLOR] cell
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

 

[BillyKit]

Works perfectly. Thanks a lot.