Userform textbox code

[rickblunt]

Greetings, Here is a snippet of code that I am using to have a textbox in a userform call up a specific WS.

 If TextBox43 = 1 Then
        Sheet1.Activate
        End If
    If TextBox43 = 2 Then
        Sheet2.Activate
        End If
    If TextBox43 = 3 Then
        Sheet3.Activate
        End If
    If TextBox43 = 4 Then
        Sheet4.Activate
        End If
...all the way up to textbox43 = 40

dmt32 recently sent me this code tweak (thanks dmt32) for another project that worked great, but this code was just to locate the textboxes and clear their contents; not to see the value in a single textbox and pass it on to the code.

 Dim i As Integer
    For i = 1 To 40
    Me.Controls("TextBox" & i).Text = ""
    Next i
    TextBox43 = ""

I am wondering if I can apply this same principle to this set of code as well, so much cleaner....

 

[CalcSux78]

The CodeName attribute to the sheet is what you're using in your post. You could loop through each sheet within this workbook to see if the codename has your number.

Dim sh As Worksheet
Select Case TextBox43.Value
    Case 1 To 40
        For Each sh In ThisWorkbook.Sheets
            If InStr(1, sh.CodeName, TextBox43.Value, 1) > 0 Then sh.Activate
        Next sh
End Select