Daxton A.
05-17-2017, 08:46 AM
For i = 1 To 1000
If ActiveSheet.Shapes.Range(Array("Picture " & i)).Select = True Then
Selection.Delete
Else
End If
Next i
End Sub
If ActiveSheet.Shapes.Range(Array("Picture " & i)).Select = True Then
Selection.Delete
Else
End If
Next i
End Sub