VBA: Delete Columns with Images

[unknownymous]

Hi Gurus,

I have some columns that I need to delete however, there are embedded picture image in cells.

I tried using below code but the picture are still visible.

= = = =

Sub Delete()

Worksheets("Sheet1").Activate
Columns("C:C").Delete
Columns("X:Z").Delete

End Sub

= = = =

Is there a way where the macro can scan the picture object in the whole workbook and delete it?

Appreciate the help.

 

[RudRud]

Sub DeleteAllPics()
Dim Pic As Object

For i = 1 To ActiveWorkbook.Worksheets.Count

For Each Pic In Sheets(i).Pictures
    Pic.Delete
Next Pic

Next i

End Sub