if you would like to select any image and add as a comment to activecell
Here is the code-
Dim s As String
s = Application.GetOpenFilename("Image Files (*.bmp;*.gif;*.jpg;*.jpeg)," & "*bmp;*gif;*.jpg;*.jpeg")
It will open a folder browse window.Choose any image and will add as comment to activecell.