VBA selecting and deleting grouped shape/charts

[kkoz84]

Hi,

i am using the below code:

What its supposed to do is to delete one grouped shapes (one rectangle, plus some charts and possibly few other elements) in the given range.

Then once it is deleted, macro should copy new grouped shape/charts form another sheet based on the predefined name in "list" variable.

Problem is that once macro loops from shapes in range and that one group of objects is deleted, it attemps to loop through it again when object was deleted and returns error as it cannot find nothing. Error is runtime error 1004. This only occurs when I change value in cell N2 as defined in "list" variable, seems like after changing values in range "n2" (it is drop down menu) macro loops again through range when its empty and returns this error.

Would you know whats the issue?

Thanks,

Sub x()

Dim s As Shape


list = Workbooks("OriginalXXL.xlsm").Sheets("Sheet1").Range("N2")
Sheets("Sheet1").Select


For Each s In ActiveSheet.Shapes
    If Not Intersect(Range("B2:I17"), s.TopLeftCell) Is Nothing Then
        s.Delete
    End If
    
Next s


Sheet24.Select


ActiveSheet.Shapes.Range(Array(list)).Select
    Selection.Copy
    
    Sheets("Sheet1").Select
    
    Range("B3").Select
    ActiveSheet.Paste
    Range("P4").Select


End Sub

 

[kkoz84]

Ok ihave test it a few times and it looks like that if i will move dropdown menu on another sheet then it works fine, but as soon as i have dropdown menu on teh same sheet where shape is being deleted, it creates error as trying to loop to many times. Does it help?

 

[kkoz84]

Looks like error is created when new shape is pasted and then when macro tries to delete it there is error.

If i paste same shape all over again then it is deleted with no issue, but as soon as new shape is pasted then error occurs.

Omg this drives me crazy!

 

[kkoz84]

Hey,

Just bumping thread, anyone would have any idea, is it possibly some bug? Or i do something wrong?

Thanks,

 

[kkoz84]

Nobody would have solution for this please?;/ Do i need to describe topic better? Please helps anyone