VBA中如何使用InputBox输入工作表名得到工作表的索引号？

Public Sub ss()
Dim iShtNm As String
Dim iSht As Worksheet
Do
Err.Clear
iShtNm = InputBox("请输入工作表名", "工作表名称")
If iShtNm = "" Then Exit Sub
On Error Resume Next
Set iSht = Sheets(iShtNm)
Loop While Err.Number <> 0
iSht.Activate
[A1].Select
MsgBox "ok"
End Sub
-------------------
输入为空时，或点击取消时，退出sub
输入了名称，但没有该工作表时，要求重新输入

sub test（）
dim s$
s=inputbox("请输入表名")
if len（s） then
msgbox Sheets（s）.Index ’索引号
sheets（s）.activate ‘定位工作表
endif
end sub

dim i as string
i=inputbox("请输入工作表名","工作表名称")
sheets(i).select