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

我对VB for Excel有点不屑一顾，但我希望在接下来的几个月里变得更好。有很多方法可以让我的团队工作更轻松。有人能帮我弄清楚如何运行这个宏吗？我已经解决了一些问题，但欢迎提供任何专业知识

我正在尝试创建一个表格，人们可以用人口普查数据填写，然后我将在另一张表格中使用这些数据的公式

我当前在零件“Sheets（strName）.Select”上得到突出显示的错误

---

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

找不到提供名称的工作表。我怀疑“项目数据”中的尾随空格字符……或者，根本没有具有该名称的工作表。开发代码还涉及错误处理。您需要考虑用户可能已删除或重命名工作表这一事实。在这些情况下会发生什么？你会创建一个新的工作表吗？更重要的是，当您为同一工作簿运行宏两次时会发生什么情况。这是第一轮的数据。。。

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