Deleting a picture/link...[Solved]

This is weird but for something new I am making at work I am automatically formatting the lists pasted directly from a web page.

For each persons name with stats there is a link that takes you to the details page. The problem is that when you paste everything in, you have these pictures that are the same links that you have to delete one at a time, Right click > Cut, so on.

I know there is a way to do this with VBA but I just cannot seem to figure it out, I will keep screwing with it but if anyone here can help I will be grateful.

Ok, I figured it out, took me 10 minutes lol...

VB Code:

On Error Resume Next
Do Until Sheet1.Shapes.Count = 0
    For i = 1 To Sheet1.Shapes.Count
        Sheet1.Shapes(i).Delete
    Next i
Loop

If you do not have the "On Error Resume Next in there you will get a motherload of invalid array errors because the pictures do not always increment themselves right.

Though this only works for me because I do not use buttons or other Visual Basics componants in my work sheets, I just create buttons from cells etc. lol.