Vlookup Picture

There is no delete in that code. It is based on assumption that one adds picture. How can one say what picture to delete or not.

From what I see, if the picture file is not present, it would print the msg saying picture not found. From what I recall who ever used it found both functionality to be working fine.
It does not have a delete functionality,

Sir I am using this formula and it works fine but i just want to add a few code in this.

I just want the condition that if the pic was not found in the given path then it shows the msgbox "Pic was not found" and show the Pic named No Photo.jpg

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewPic As String
If Target.Address = "$E$9" Then
NewPic = "F:\" & Range("E10").Value
Target.Comment.Shape.Fill.UserPicture NewPic
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Use the DIR command before you try to add the picture to check if the file is present or not. (see in that thread if confused)

I had already try that but didn't succeed...... thats why asking here friend

NewPic = "F:\" & Range("E10").Value

If Dir(NewPic) = "" then
NewPic = "F:\NoPhoto.jpg"
msgbox "Missing a picture"
end if
Target.Comment.Shape.Fill.UserPicture NewPic