Do Until Sheet1.Shapes.Count = 0: Sheet1.Shapes(1).Delete: Loop


"courtesio99" wrote in message
...
Geez.. tat works!Thanks!

Now I have another problem.. haha.
I have some buttons in my original workbook, but when I want to print
the worksheets, the buttons should not be shown.

How can I copy all the worksheets over to the new workbook without
copying the buttons?


---
Message posted from http://www.ExcelForum.com/