Sub GrabImageName()
For Each shapevar In ActiveSheet.Shapes
If shapevar.BottomRightCell.Address = shapevar.TopLeftCell.Address Then
Range(shapevar.BottomRightCell.Offset(0, 5).Address).Value = shapevar.Name
Else
shapevar.BottomRightCell.Offset(0, 5).Interior.ColorIndex = 3
shapevar.BottomRightCell.Offset(0, 5).Interior.ColorIndex = 3
End If
Next
End Sub