CommandButton üzerine hücreden metin atamak

[xternet]

Merhaba Arkadaşlar

Userform üzerine yerleştireceğim butonlar üzerine sayfadaki bazı hücrelerden metin eklemek istiyorum. Hücredeki metin değiştiğinde buton üzerindeki metinde değişecek.
Mümkünmü bilemiyorum arkadaşlar. Bir örnek dosya ekledim.
Şimdiden zaman ayıracak arkadaşlara teşekkür ediyorum.

İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
CommandButton1.Caption = Sheets("Sayfa1").Cells(1, "A").Value
End Sub

 

[xternet]

Teşekkür ederim Sayın gizlen. Elinize sağlık.
İyi çalışmalar.

 

[Orion1]

Teşekkür ederim Sayın gizlen. Elinize sağlık.
İyi çalışmalar.

Rica ederim.
İyi çalışmalar.