Picture Delete is Deleting TextBox also

[ipon70]

I am passing this command along with some other commands and have narrowed it down to this one line.
Sheets("REPORT").Pictures.Delete

For some reason when I turn this line on its deleting the ActiveX TextBox(s) I also have on the same sheet.
Any ideas?
The textboxes are on rows 6 and 9 and the pictures are all below row 400

Thanks in advance for any help

 

[Engberg]

This should only delete the pictures and not the text boxes:

Sub deletePictures()
    
    Dim shp As Shape
    For Each shp In Sheets("REPORT").Shapes
        If shp.Type = msoPicture Then shp.Delete
    Next
     
End Sub

 

[ipon70]

This should only delete the pictures and not the text boxes:

Sub deletePictures()
   
    Dim shp As Shape
    For Each shp In Sheets("REPORT").Shapes
        If shp.Type = msoPicture Then shp.Delete
    Next
    
End Sub

thank you!!