excel - 属性定义中.InputTitle行的数据验证，输入消息，应用程序定义的错误

我试图在程序通过一行单元格时将数据验证输入消息插入单元格中。该消息是从我的代码中的控件(以下未包括)中收集的字符串。

我无法输入.InputTitle值。当我注释掉这一行时，它可以正常工作。

在这里，我有我的循环:

Dim phaserangecell As Range

Set phaserange = Sheet1.Range(Cells(rowofpersonnel, startingpoint), Cells(rowofpersonnel, startingpoint + phaselength - 1)) 'This is the range through which I am moving.

For Each phaserangecell In phaserange.Cells

commentmessage = commentmessage & checkboxcollection(collectionindex).box.Caption & ": " & hourspermonth & " hrs/month + " & extra & " custom hours." & Chr(13)

With phaserangecell.Validation
  .Delete
  .InputTitle = "Personnel assumptions for this month:" 'Error thrown here
  .InputMessage = commentmessage & Chr(13) & "Total Hours: " & hourspermonth + extra
End With

Next phaserangecell

为什么这不正确？ .InputMessage可以正常工作，但是.InputTitle引发错误。

谢谢!

最佳答案

我有这个确切的问题，只是想出了办法。这是因为标题太长。谁知道为什么错误不可能是“InputTitle限制为32个字符”，但这就是问题所在。