ComboBox tan sayfa seçerek kayıt?

[rhurriyet]

UserForm'daki ComboBox'da kitabın içindeki sayfalardan birini nasıl seçebilirim ve seçtiğim bu sayfaya UserForm'daki TextBox'larda ki bilgiyi nasıl kayıt ederim?
Yardımcı olursaanız sevinirim. Dosyayı ekliyorum.

 

[rhurriyet]

Yardımcı olduğunuz için çok teşekkür ederim.
belki bir gün birisinin işine yarar kullanır diye kodları ekliyorum.
Umarım kimse bilgisiz kalmaz. Umarım yardıma muhtaç herkez yardım görür.

Dim Sht As WorkSheet
Dim Rng As Range
Private Sub ComboBox1_Change()
Set Sht = Worksheets(ComboBox1.Text)
Set Rng = Sht.Range("A1").Offset(WorksheetFunction.CountIf(Sht.Range("A:A"), "<>"), 0)
End Sub

Private Sub CommandButton1_Click()
Sht.Range(Rng, Rng.Offset(0, 2)) = Array(TextBox1, TextBox2, TextBox3)
Set Rng = Rng.Offset(1, 0)
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
ComboBox1.AddItem sh.Name
Next
ComboBox1.ListIndex = 0
End Sub