to remove unwanted buttons in a row

[RSEKAR]

Dear Sir,
I use macro in a excel sheet. I use AutoFilter in the macro for filtering under some criteria.
After sometime I find in the row where the AutoFilter took place, some of the cells contain the Buttons with the arrow down (used in AutoFilter).
Now in the menu bar Data – Filter – AutoFilter is not selected. So I am unable to remove the buttons.
The macro is completed and the macro functions are not affected when used again.
Few buttons in the row will remain permanently.
I do not know how to prevent the buttons remaining back in some of the cells (in the row in which the AutoFilter took place).
I use Excel 2002 and OS Windows XP
I use the following macro to remove all the buttons in a sheet.
This macro removes the buttons which are essential for me.
So I request you to modify the macro to remove the buttons only from the area selected.
Thanking you,
Yours truly,
Dr.R.Gnanasekaran.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Dim GetShape As Shape<o></o>
<o> </o>
For Each GetShape In ActiveSheet.Shapes<o></o>
GetShape.DELETE<o></o>
Next<o></o>
<o> </o>
End Sub<o></o>
<o> </o>

 

[Datsmart]

This code will delete all objects from the selected range.

Sub DeleteObjectFromSelection()
Dim isect As Range
    For Each PicObj In ActiveSheet.Shapes
        TheLeft = PicObj.TopLeftCell.Address
        Set isect = Application.Intersect(Range(TheLeft), Selection)
        If Not isect Is Nothing Then PicObj.Delete
    Next PicObj
End Sub

 

[RSEKAR]

Dear Sir,
Thank you for your immediate action.
I selected the cells where the buttons are found and your macro has been made to run.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
I get the following error message.<o></o>
<o> </o>
Run time error ‘1004’<o></o>
Application-defind or Object-defind Error<o></o>
<o> </o>
When I click ‘Debug”, the following line in the macro has been selected.<o></o>
TheLeft = PicObj.TopLeftCell.Address<o></o>
<o> </o>

 

[Datsmart]

I can not troubleshoot your issue as I can not get an AutoFilter to leave behind the "Dropdown Buttons".
Both your code and my posted code works fine in my test sheet with regular button objects. It does not remove regular AutoFilter buttons.

Please post your entire code. I can not repeat the error you are getting.