sayfa adı makrosu

[uzmanamele]

merhaba
bir çalışma kitabımda çok sayıda çalışma sayfalarım ve birçok sayfada hesap için makrolarım var. bu makroları sayfanın kod bölümüne yazmak yerine modüllere yazarak sayfanın kod bölümünden gerekli şartlar oluştuğunda çağırmak istiyorum. (çok sayıda kodları Worksheet_Change ve Worksheet_SelectionChange prosedürü altında toplamak sorun çıkarmasın diye)
ekteki dosyada sayfa adı makrom var. 2. sayfa 1. sayfa A1 deki yazıyı sayda adı olarak alıyor. sayfa1 de A1 e bişey yazdığım zaman sayfa adı hemen değişiyor, sayfa2 yi seçtiğimde işlem yapmazsam ad değişmiyor.
sayfa1 A1 e bişey yazdığım zaman her 2 sayfanın adını değiştirecek kodu nasıl yazarım? ya da sayfa2 yi açtığımda ad otomatik değişsin? (sayfa2 de işlem yapmadan değişsin)

modül1 de
Sub sayfaadı1()
If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "BENİM SAYFAM " & Range("A1").Value
End Sub
modül2 de
Sub sayfaadı2()
If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "ONUN SAYFASI " & Range("A1").Value
End Sub
sayfanın kod bölümlerinde
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call sayfaadı1
End Sub
kodlarım var.

 

[isfa5878]

If Range("A1").Value = Empty Then Exit Sub
ActiveSheet.Name = "BENİM SAYFAM " & Range("A1").Value
Sheets("Sayfa2").Name = "BENİM SAYFAM2" & Range("A2").Value

gibi mi?

 

[uzmanamele]

merhaba
sayfa1 A1 e aaa yazdığımızda
sayfa1 A1 de yazılanı sayfa1 in adını benim sayfam aaa olarak değiştiriyoruz.
sayfa2 A1, sayfa1 A1 deki yazılanı alıyor ve onun sayfası aaa olarak değişiyor.
bu ad değiştirme işlemi Sayfa1 için hemen gerçekleşirken Sayfa2 de bir işlem yapmak gerekiyor, otomatik değişmiyor.
istediğim, her 2 sayfanın adının aynı anda değişmesi.