Getting "End If without block If" error on the following code and cannot figure this one out...
If ActiveSheet.Name = "Front Wing" Or "Nose" Or "Bargeboard" Or "Sidepod Vane" Or "Fwd Floor" Then _
Set ws = ActiveWorkbook.Worksheets("Front Team Project List")
With ws
For Each aCell In .Range(Sheets("VBA_Data").Cells(2, ProjectColumn), Sheets("VBA_Data").Cells(ProjectRangeLastRow, ProjectColumn))
If aCell.Value <> "" Then
Me.ComboBoxProjectTitle.AddItem aCell.Value
End If
Next
End With
End If
Any help much appreciated.
Aucun commentaire:
Enregistrer un commentaire