Soru multipage de listbox

[sirkülasyon]

Private Sub CommandButton8_Click()
Application.ScreenUpdating = False
On Error Resume Next
If ListBox1.ListIndex = -1 Then
        MsgBox "Listeden seçim yapılmadı!!!"
    Exit Sub
    Else
Sheets("DATA").Select
Dim bul As Range
soru = MsgBox("Bu Kaydı Güncellemek İstiyor musunuz?", vbYesNo + vbInformation, "Uyarı")
If soru = vbYes Then
For Each bul In Range("H2:H" & Range("H65536").End(3).Row)
    If bul.Value = Label13.Caption Then
        bul.Offset(0, 8).Label13.Caption
        bul.Offset(0, 9).Value = TextBox11.Value
Next bul
End If
Application.ScreenUpdating = True
End Sub

Userform1 Multipage 1. sayfasında var olan listboxa sayfadan veri alıyorum ancak değiştir yapamıyorum. ((Next bul)) kısmında hata veriyor

Rica etsem yardımcı olabilir misiniz?

 

[Ziynettin]

Next bul dan önce End if satırını yazın.