Sub ki285()
Sheets("Sheet1").Select
Dim zu As Object
    For Each zu In ActiveSheet.Shapes
        zu.Delete
    Next
Sheets("Title").Select
End Sub