(VBA) Delete All Shape in Worksheet excerpt for the shape contain in Sheet1

Hi

I am new to VBA. I wanted to delete all shape in workbook excerpt the shape that contained in Worksheet ("Sheet1"). The reason doing so is because i had code that split the data into multiple worksheet. when the data are split, the shape will also split to other worksheet.. is there any way to delete all the shape in all worksheet excerpt for "Sheet1"

Thank you
Your help will be greatly appreciated.

Hi Khalil,
wow, you are brilliant.. the code work prefectly as what i wanted
Just curious, Why the code use drawingobject instead of shape