subscript out of range into combobox inside sheet

[Alaa mg]

hello
I need fixing this error subscript out of range .

Sheets(ComboBox1.Text).Visible = xlSheetVisible

by the way this code works for file but when implement in another shows the error .

Private Sub ComboBox1_Change()
Dim sh As Worksheet

Application.ScreenUpdating = False
Sheets(ComboBox1.Text).Visible = xlSheetVisible

    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> ComboBox1.Text And sh.Name <> "input" Then
            sh.Visible = xlSheetHidden
        End If
    Next sh
    
Application.ScreenUpdating = True

End Sub

 

[Alex Blakenburg]

To get a "subscript out of range" error on the line Sheets(ComboBox1.Text).Visible = xlSheetVisible, the sheet name held in ComboBox1.Text would have to be an invalid sheet name.
Maybe add the line debug.print ComboBox1.Text & " - Length:" & len(ComboBox1.Text) and see what it shows in the immediate window
Then ensure that the sheet name exists and matches "exactly" ie check that neither the combo box text or the sheet name have leading or trailing blanks.

 

[Alaa mg]

you're right .
many thanks for your guiding

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.