dosyanınadının o dosyadaki ilk sheetinde adı olsun?

[udentr2002]

merhaba arkadaşlar bir excel dosyasını farklı kaydet deyip yeni bir isim verdikten sonra o yeni dosyanın ilk sheetininde (Sayfa1)'inde adınında dosya ismi olmasını yapabileceğimiz bir kod olabilirmi acaba?

Mesala: Dosyanın adı A dosyası olsun bu dosyayı farklı kaydet yaptığımızda ismini B dosyası verdiğimizde Bu B dosyasının ilk sheetinin yani Sayfa1'inde adının B olması için bir kod olabilirmi acaba?

 

[hsayar]

Sub Auto_Open()
Sheets(1).name = ThisWorkbook.name
Ebd sub

 

[udentr2002]

çok teşekkür ederim hocam sağolun

 

[hsayar]

rica ederim