So I have a macro that renames images in the sheet based on their
topleftcell property. and it works perfectly, except where there are
mulitple images in the same cell. the problem comes when I cannot find
those multiple images.
Someone along the way helped me with this code:

Sub FindImages()
Dim Shp As Shape
Dim Msg As String
For Each Shp In ActiveSheet.Shapes
Msg = Msg & Shp.Name & vbTab & Shp.TopLeftCell.Address(False, False) &
vbLf
Next Shp
MsgBox Msg
End Sub

but the results get posted in a msg box and I need them to go into a
new sheet so I can scroll through the hundreds of them and find which
one is causing my pain.

Can someone help me do that, or give me a better idea of finding where
the mulitple images exist?

thank you.
Anne