hi all,
In my worksheet,
column B contained comments with pictures.
I wish to extract the pictures in comments and paste the picture to corresponding column C
(i.e. copy the picture contained in the comment of cell B2 and paste the picture to cell C2)

My current macro:

PHP Code: 
Sub Macro1()

Dim rngTemp As Range
Set rngTemp = ActiveCell

Application.ScreenUpdating = False
With ActiveCell
.Comment.Visible = True
.Comment.Shape.Select
.Comment.Shape.CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
.Comment.Visible = False
End With
ActiveSheet.Range("A1").PasteSpecial
Application.ScreenUpdating = True

End Sub 

however it can only deal with one cell and I need to move the cursor to each cell that has comments.

Much appreciated if anyone could fix my code?
I imagine that a simple loop function would do but couldnt come up with one...

thanks