Soru Sayfanın pencere adını(Window.Caption) yazdırmak

[klop01]

Değerli Arkadaşlar,
Bu Çalışma Kitabı bölümüne forumdan bulduğum şu kodu yazıyorum.:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.Caption = Sheets("TEMEL DEĞERLER").Range("J5")  (BU SATIRLA İLGİLİ SORUN YOK)
Application.ActiveWindow.Caption =  Sheets("TEMEL DEĞERLER").Range("J6")
End Sub

Application.ActiveWindow.Caption = Sheets("TEMEL DEĞERLER").Range("J6") kod satırı açık olan tüm excel kitaplarındaki sayfalarda geçerli oluyor.
Şöyle bir şey yapılabilir mi?
Bu kod satırını 4-5 sayfada kullanmak istiyorum ancak her sayfada farklı bir değerle. Örnek verecek olursam:
Sayfa4'teki Window.Caption=Sheets("TEMEL DEĞERLER").Range("J7")
Sayfa7'deki Window.Caption=Sheets("TEMEL DEĞERLER").Range("J8")
Sayfa9'daki Window.Caption=Sheets("TEMEL DEĞERLER").Range("J9")
Sayfa14'teki Window.Caption=Sheets("TEMEL DEĞERLER").Range("J10")

Kodlar sadece içinde yazılı olduğu çalışma kitabında geçerli çalışmalı, diğer kitapları etkilememeli.
Yardımlarınızı, fikirlerinizi rica ederim.

 

[Haluk]

Dosyanız...

.

 

[klop01]

Teşekkür ederim [B]Haluk[/B] Bey.
İletimde belirtiğim sorun çözüldü, sağ olun.
Yukarıdaki iletimde Application.Caption = Sheets("TEMEL DEĞERLER").Range("J5") satırı(koddaki ilk satır) için sorun yok diye açıklama yazmıştım.
Burası da sorun oluyormuş. Yani her açılan kitapta aynı değeri getiriyor.
Aplikasyonun adı olduğu için değişmez diye düşünüyorum ama burası da her kitapta farklı değeri getirecek şekilde düzenlenebilir mi?

 

[Haluk]

Ne istendiğini tam olarak anlayamadım ...

.

 

[klop01]

İkinci iletide eklediğiniz dosyadaki kodlar benim asıl dosyama daha uygunmuş. Anlamamız biraz geç oldu.
Eklediğiniz dosyadaki kodlar diğer çalışma kitabına da etki ediyor ama çok önemli değil, bu şekli yeterli oluyor.
Dolayısı ile biraz karışık anlattığım 3. iletideki açıklamam yok sayılabilir.
Tekrar teşekkürlerimi sunuyorum.