hi, i'm new to excel - i know, from browsing, that similar questions have been asked but i'd be really grateful if someone could help 
i'm trying to find a quick way to be able to insert a picture (jpg) as a comment in a cell - i've got lots of different pictures to insert as comments to lot of different cells.
While browsing, i found this macro:
it works (allows me to chose a picture to insert as a comment) but the problem i have is that whichever cell i select, it always inserts the picture as a comment to cell A1. I want to be able to insert the comment in whichever cell in the worksheet i choose - don't know how to change the macro to do this
Thanks in advance for any help

i'm trying to find a quick way to be able to insert a picture (jpg) as a comment in a cell - i've got lots of different pictures to insert as comments to lot of different cells.
While browsing, i found this macro:
Code:
Sub Img_in_Commentbox()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False 'Only one file
.InitialFileName = CurDir 'directory to open the window
.Filters.Clear 'Cancel the filter
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choose image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
'No file selected
If TheFile = 0 Then
MsgBox ("No image selected")
Exit Sub
End If
Range("A1").AddComment
Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
End Sub
it works (allows me to chose a picture to insert as a comment) but the problem i have is that whichever cell i select, it always inserts the picture as a comment to cell A1. I want to be able to insert the comment in whichever cell in the worksheet i choose - don't know how to change the macro to do this

Thanks in advance for any help
