Simplified The code

[skvts]

Hi, All..

I'm running one code like this :

Dim shape As Excel.shape

For Each shape In Sheets("Chart").Shapes
shape.Delete
Next
For Each shape In Sheets("Chart2").Shapes
shape.Delete
Next
For Each shape In Sheets("Chart3").Shapes
shape.Delete
Next


How do we make it simple by just one line of code , thank for any help,,

 

[Joe4]

Well, you could shorten it by writing a loop to loop through all your sheets and delete all the shapes on sheets whose names start with "Chart", like this:

    Dim ws As Worksheet
    Dim myShape As Excel.Shape
    
    For Each ws In Worksheets
        If Left(ws.Name, 5) = "Chart" Then
            For Each myShape In ws.Shapes
                Shape.Delete
            Next myShape
        End If
    Next ws

By the way, since "Shape" is a reserved word in Excel VBA, you should not use it as a variable.

 

[skvts]

That's good sharing ,, thanks a lot bro Joe4,,

regards,
Marlin