Sub AddAPic()
For Each cell In Selection
ThisPicture = "ADD YOUR FOLDER ADDRESS AND PREFIX HERE" & cell.Value & ".jpg"
With cell.AddComment
.Shape.Fill.UserPicture ThisPicture
.Shape.Height = 600
.Shape.Width = 600
End With
Next cell
End Sub