Clearing ListBox Selection

[dhosi439]

I'm using the code below to hide or unhide and activate worksheets in my workbook. I would like to add code to deselect the original selection in the listbox, however when I try to add code to several places I receive a Run-Time 9 error, subscript out of range.

Private Sub lbSheets_Change()

Dim i As Integer, sht As String

    For i = 0 To lbSheets.ListCount - 1
        If lbSheets.Selected(i) = True Then
            sht = lbSheets.List(i)
        End If
        
    Next i
        If Sheets(sht).Visible = True Then
            Sheets(sht).Visible = False
        Exit Sub
        ElseIf Sheets(sht).Visible = False Then
            Sheets(sht).Visible = True
            Sheets(sht).Activate
            End
        End If
    End
End Sub

Code I have tried:

    For x = 0 To lbSheets.ListCount - 1
    If lbSheets.Selected(x) = True Then
    lbSheets.Selected(x) = False
    End If
    Next
    End

and...

frmManageSheets.Listbox1.Listindex=-1

I'm sure this has to do with the FOR statement, but I'm not sure what the issue is or how to resolve. Any help would be great.

 

[dhosi439]

Can anyone help?

 

[dhosi439]

I'm still having issues...

This is what I currently have:

Private Sub lbSheets_Change()

Dim i As Integer, sht As String

    For i = 0 To lbSheets.ListCount - 1
        If lbSheets.Selected(i) = True Then
            sht = lbSheets.List(i)
        End If
        
        lbSheets.ListIndex = -1
        
    Next i
        [COLOR="Red"]If Sheets(sht).Visible = True Then[/COLOR]
            Sheets(sht).Visible = False
        Exit Sub
        ElseIf Sheets(sht).Visible = False Then
            Sheets(sht).Visible = True
            'Sheets(sht).Activate
            'End
        Exit Sub
        End If
    End
End Sub

I receive a Run-time error '9': Subscript our of range for the red text above, which is highlighted in the editor.

I have also tried placing the snippet of code below into the first if statement and receive the same error.

lbSheets.ListIndex = -1

Also this is a change event for a ListBox.