结束 如果 没有阻止 如果 - Excel VBA

Question

在以下代码上收到"类型不匹配"错误，无法弄清楚这个...

If ActiveSheet.Name = "Front Wing" Or "Nose" Or _
ActiveSheet.Name = "Bargeboard" Or _
ActiveSheet.Name = "Sidepod Vane" Or _
ActiveSheet.Name = "Fwd Floor" Then
Set ws = ActiveWorkbook.Worksheets("Front Team Project List")
With ws
For Each aCell In .Range(Sheets("Front Team Project List").Cells(2, ProjectColumn), _
Sheets("Front Team Project List").Cells(ProjectRangeLastRow, ProjectColumn))
If aCell.Value <> "" Then
Me.ComboBoxProjectTitle.AddItem aCell.Value
End If
Next
End With
End If

任何帮助非常感谢。

Answer 1

我将第一行更改为以下内容，它有效：

If ActiveSheet.Name = "Front Wing" Or _
ActiveSheet.Name = "Nose" Or _
ActiveSheet.Name = "Bargeboard" Or _
...