Aktif sayfa ismi

[alooo]

Arkadaşlar,
Sizden 2 isteğim olacak;

1) Aktif olan sayfanın ismini, aynı sayfada (yani aktif olan sayfada) belirli bir hücreye (örneğin a1) yazdırmak mümkün müdür?

2) Aktif olan sayfanın ismini, belirli bir sayfada belirli bir hücreye yazdırmak mümkün müdür?

Yardım edeceklere şimdiden teşekkürler.

 

[Orion1]

Sub aktif_sayfa()
Range("A1").Value = ActiveSheet.Name
Sheets("Sayfa3").Range("A1").Value = ActiveSheet.Name
End Sub

 

[alooo]

teşekkürler. işimi gördü sağolasın arkadaşım.