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
无锡写的