运行时错误9下标超出范围

我对VB的Excel有点小气，但是我希望在未来的几个月里能够好得多。 多种方式可以使我的团队的工作更轻松。 有人可以帮我弄清楚如何让这个macros运行？ 我已经解决了一些问题，但是任何专业知识都是值得欢迎的。

我试图创build一个表格，人们可以填写人口普查数据，然后我会有公式运行在另一个工作表中的数据。

我目前正在获取突出显示的错误的部分“表（strName）。select”

Sub InputSheet() Dim sName As String Dim sStatus As String Dim sSalary As String Dim sBonus As String Dim sPartner As String Dim sWorkState As String Dim sBenefitsLevel As String sName = InputBox("Input Employee Name:", "PROJECT INFORMATION") sStatus = InputBox("Input FT or PT:", "PROJECT INFORMATION") sSalary = InputBox("Input Salary:", "PROJECT INFORMATION") sBonus = InputBox("Input Bonus:", "PROJECT INFORMATION") sPartner = InputBox("Input Partner Status (Y/N):", "PROJECT INFORMATION") sWorkState = InputBox("Input Work State:", "PROJECT INFORMATION") sBenefitsLevel = InputBox("Input Benefits Level:", "PROJECT INFORMATION") Dim MyNewSheet As Worksheet Set MyNewSheet = Worksheets.Add(, Sheets(Sheets.Count)) Dim strName As String strName = "Project Data " Sheets(strName).Select Cells(1, 1).Value = "Employee Name or Title" Cells(1, 2).Value = "Employment Status" Cells(1, 3).Value = "Salary" Cells(1, 4).Value = "Bonus" Cells(1, 5).Value = "Partner Status" Cells(1, 6).Value = "Work State" Cells(1, 7).Value = "Benefits Level" Cells(2, 1).Value = sName Cells(2, 2).Value = sStatus Cells(2, 3).Value = sSalary Cells(2, 4).Value = sBonus Cells(2, 5).Value = sPartner Cells(2, 6).Value = sWorkState Cells(2, 7).Value = sBenefitsLevel ThisWorkbook.Save MsgBox "Process is Complete!" End Sub 

Answer 1

在strName的末尾有一个空格 – 是名为“Project Data”还是“Project Data”的选项卡？