visualBasic kodunu otomatik yazdırma

[aydgur]

Sayfa 1 in B9 ve alta doğru devam eden B10 hücrelerinde yazan sayfa isimlerini
Sub NADE()
Sheets("NADE").Select
End Sub bu kod gibi visualbasic sayfasına otomatik yazdırabilirmiyim.

 

[Haluk]

O dediğiniz de yapılır ama;

Sheets.select

komutu sizin işinizi görür gibi geliyor bana...


.

 

[aydgur]

Dosyamda özel menü var.sayfa1 b sütununa sayfa adlarını (örneğin aydın)sayfayaz makrosu ile yazdırıyorum,fakat özel açılır menüde aydın ı tıklayınca tabii ki böyle makro yok diyor.biraz uçuk ama:sayfa adlranı başka bir kamro ile sayfa1 e yazdırdığımda makro kodları da visulabasic sayfasına otomatik yazdırılabilirmi ? Sayfa adlarını yazdırdıktan sonra örneğin:
Sub aydın ()
Sheets("aydın").Select
Ensd sub ------------diye kodu kendim yazıyorum

 

[frtnamu]

örnek kod yazabilirmisiniz
makro ile yeni sayfa oluşturup
bu yeni sayfanın kod sayfasına
yine makro ile kod nasıl yazdırılabilir ?
teşekkürler