Yardım Excel Makro Butonları Gerektiği Gibi Çalışmıyor

Sub ToggleCommentVisibility(ByVal buttonName As String, ByVal commentRangeAddress As String)
Dim button As Shape
Dim commentRange As Range

Set button = ActiveSheet.Shapes(buttonName)
Set commentRange = ActiveSheet.Range(commentRangeAddress)

If button.TextFrame.Characters.Text = "Göster" Then
button.TextFrame.Characters.Text = "Gizle"
commentRange.Comment.Visible = True
Else
button.TextFrame.Characters.Text = "Göster"
commentRange.Comment.Visible = False
End If
End Sub

Sub ToggleAçıklamaGösterGizle()
ToggleCommentVisibility "Düğme 1", "C2"
End Sub

Sub ToggleİmzaSirküsüGizle()
ToggleCommentVisibility "Düğme 3", "C5"
End Sub

Sub ToggleVergiLevhasıGizle()
ToggleCommentVisibility "Düğme 4", "C8"
End Sub

Sub ToggleTicaretSicilGazetesiGizle()
ToggleCommentVisibility "Düğme 6", "C11"
End Sub

Sub ToggleFaaliyetBelgesiGizle()
ToggleCommentVisibility "Düğme 7", "C14"
End Sub

Sub ToggleYetkiliKişiKimlikGizle()
ToggleCommentVisibility "Düğme 8", "C17"
End Sub

Sub ToggleKuruluşGazetesiGizle()
ToggleCommentVisibility "Düğme 9", "C21"
End Sub

Sub ToggleGerçekFaydalanıcıGizle()
ToggleCommentVisibility "Düğme 10", "C24"
End Sub

Sub ToggleKimlikVeyaPasapotGizle()
ToggleCommentVisibility "Düğme 11", "C27"
End Sub

her bir butona bastığımda tanımlı olan hücredeki açıklamayı gösterip gizliyor ilgili çalışma sayfasında sorunsuz çalışıyor 2. çalışma sayfasına kopyaladığımda butonlar düzgün çalışmamaya başlıyor ek olarak koyduğum örnek sorunumu anlatacaktır diye tahmin ediyorum bilgisayardan veya excel den anlayan biri değilim internetten araştırarak yapılanları kopyalayarak kendimce işimi kolaylaştıracak basit çözümler bulmaya çalışıyorum müsait olanlar göz atıp nereyi nasıl düzeltmem gerektiğini söylerse sevinirim

Bir dener misiniz, Umarım çalışır.

Kodu VBA editörde Modül yada Sayfa değilde "BuÇalışmaKitabı" yazan alana yapıştırın ve deneyin.