For i = 1 To 1000 If ActiveSheet.Shapes.Range(Array("Picture " & i)).Select = True Then Selection.Delete Else End If Next i End Sub
For i = 1 To 1000 If ActiveSheet.Shapes.Range(Array("Picture " & i)).Select = True Then Selection.Delete Else End If Next i End Sub
“All right now ya wise guy … Dance!”
I use
Sub DelPics() Dim shp As Shape For Each shp In ActiveSheet.Shapes If Left(shp.Name, 3) = "Pic" Then shp.Delete Next shp End Sub
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Works like a charm, Thanks!
“All right now ya wise guy … Dance!”