我想在Excel VBA里面做一个输入窗口，我随便输入哪个Sheet名字它就会选择哪个Sheet.

Answer 1

Sub 输入()
On Error GoTo 100
a = Application.InputBox("请输入工作表名称！")
Sheets(a).Select
Exit Sub
100:
MsgBox "工作表名称输入错误！"
End Sub

 修正了一下无此工作表名称