listbox delete row code stopped functioning

[dss28]

I have a userform in which I have refresh button to load the listbox with data from a worksheet.

A delete button to select a row for deletion etc.

The delete code was functioning for several months before but suddenly is stopping now at the "no row is selected" stage even after selecting the row in the listbox.

Need advice why it might be stopping now.

The code for row selection and delete command is below:

[CODE=vba]Private Sub CommandButton5_Click()         'delete row

        Application.Calculation = xlCalculationManual
        Application.ScreenUpdating = False
        Application.DisplayStatusBar = False
        Application.EnableEvents = False
        ActiveSheet.DisplayPageBreaks = False

    If Selected_List = 0 Then

        MsgBox "No row is selected.", vbOKOnly + vbInformation, "Delete"
        Exit Sub

    End If

    Dim i As VbMsgBoxResult

    i = MsgBox("Do you want to delete the selected record?", vbYesNo + vbQuestion, "Delete")

    If i = vbNo Then Exit Sub

    Dim row As Long

    row = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) + 1

    ThisWorkbook.Sheets("Data").Rows(row).Delete

     MsgBox "Selected records has been deleted successfully.", vbOKOnly + vbInformation, "Delete"


Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True

 
End Sub


Function Selected_List() As Long

    Dim i As Long

    Selected_List = 0

    If UserForm8.ListBox1.ListCount < 1 Then Exit Function

    For i = 0 To UserForm8.ListBox1.ListCount - 1

        If UserForm8.ListBox1.Selected(i) = True Then

            Selected_List1 = i + 1

            Exit For

        End If

    Next i

End Function

[/CODE]

 

[Fluff]

You have a typo here

Selected_List1 = i + 1

 

[dss28]

oh god... such a stupid mistake
deleted 1 from Selected_List1 ----- now working fine, tested with and without 1

thanks a lot Fluff

 

[Fluff]

You're welcome & thanks for the feedback.

If were using Option Explicit, it would have picked up the problem.

 

[dss28]

You're welcome & thanks for the feedback.

If were using Option Explicit, it would have picked up the problem.

I try to avoid option explicit as I am not so much aware of the full programming and declaration part, but will keep this in mind when stuck with such issues.
Thanks a lot again

 

[Fluff]

My pleasure.