输入不同，取不同的sheet

 Private Sub CommandButton1_Click()
Select Case TextBox2.Text
    Case "aaaa"
        Sheets("sheet2").Activate
        Sheets("sheet3").Visible = False
    Case "bbbb"
        Sheets("sheet3").Activate
        Sheets("sheet2").Visible = False
End Select
Unload Me

End Sub
无锡写的