ListBox ta Diğer Sayfa verilerini Görme

[Mustafa MUTLU]

1 adet UserForm Hazırladım.
Bu formla Sayfa1 e kayıt yapıyorum.
Userform aşağıdaki kodu koyarak 2. sayfaya geçiyorum
Oradaki kayıtlarıda aynı Listbokta görmek istiyorum.

Private Sub CommandButton5_Click()
UserForm1.Hide
Worksheets("Sayfa2").Select
UserForm1.Show
End Sub

Ancak ListBox aşağıdaki kodu yazdığım için 2. sayfada listbox 1. sayfanın verilerini gösteriyor.

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.BackColor = vbYellow
.ColumnCount = 4
.ColumnWidths = "40;70;70;70"
.ForeColor = vbRed
If Sheets("Sayfa1").Range("a2") = Empty Then
.RowSource = Empty
Else
.RowSource = "Sayfa1!a2:d" & [Sayfa1!a65536].End(3).Row
End If
End With
End Sub

Kırmızı renkle gördüğünüz sayfa1 yerine aktif sayfa yazmam lazım.
herkese Teşekkürler...