Soru listboxa veri alma hatası

[sirkülasyon]

Private Sub CommandButton1_Click()
Set sh = Sheets("Malzeme Giriş")
son = [a:d].Find("*", , , , xlByRows, xlPrevious).Row
If son < 2 Then Exit Sub
    sut = Array(1, 2, 3, 4)
    a = Range("A2:D" & son).Value
    ReDim b(1 To UBound(a), 1 To 4)
    For i = 1 To UBound(a)
        For j = 0 To UBound(sut)
            b(i, j + 1) = a(i, sut(j))
        Next j
    Next i
    ListBox1.ColumnCount = 4
    ListBox1.ColumnWidths = "1.5cm;6.5cm;1.9cm;1.9cm"
    ListBox1.List = b
    End Sub

Eğer formu Malzeme Giriş sayfasında açarsam listboxa veriyi getiriyor. Başka sayfada formu açarsam hata veriyor. Nasıl düzeltebilirim?

 

[ÖmerBey]

Merhaba,
Sayfa ismi belirtmediğiniz zaman kod aktif sayfaya göre çalışır.
Aşağıdaki satırları değiştiriniz...

son = sh.[a:d].Find("*", , , , xlByRows, xlPrevious).Row
a = sh.Range("A2:D" & son).Value