textbox temizleme

[GRANDfather]

ofis 2007 kullanıyorum bazı excel dosyalarımda nasıl olustuklarını bilmediğim text box kutucukları olusmus bul seç bölmesinde seçim bölmesini actığımda
sayfa icinde binlerce text box olustugunu görüyorum ve bundan dolayı dosya cok yavaş calısıyor bunları tek tek silmek cok zaman alıyor bunları toplu şekilde silmenin bir yolu varmıdır. yardımlarınızı bekliyorum.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub TextBox_Sil()
CommandBars("Control Toolbox").Visible = True
ActiveSheet.DrawingObjects.Delete
End Sub