Delete Images and object in specific ranges from multiple sheets

[Negi1984]

Hi All,

I have 10 sheets in excel files and 4 are hidden and 6 unhidden.
Now I am looking for code which can delete all images and objects from specific range suppose(C3:L40) from all visible sheet.

Can anybody suggest me what modification required in below code.

Sub Del_All_Shapes_WB()
    Dim shp As Shape
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            shp.Delete
        Next shp
    Next ws
End Sub

 

[Domenic]

Try...

Sub Del_All_Shapes_WB()
    Dim shp As Shape
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            For Each shp In ws.Shapes
                If Not Intersect(shp.TopLeftCell, ws.Range("C3:L40")) Is Nothing Then
                    shp.Delete
                End If
            Next shp
        End If
    Next ws
End Sub

Hope this helps!

 

[Negi1984]

Thanks a lot Domenic for your valuable support

Try...

Sub Del_All_Shapes_WB()
    Dim shp As Shape
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible Then
            For Each shp In ws.Shapes
                If Not Intersect(shp.TopLeftCell, ws.Range("C3:L40")) Is Nothing Then
                    shp.Delete
                End If
            Next shp
        End If
    Next ws
End Sub

Hope this helps!