Kristen_cancerkiller
Member
Could I get a second set of eyes on the following code? I am getting a 'Syntax error' on the code string that begins with 'If myCell.value>0' (7th row down). I can't see what is wrong... does anyone else? Strange thing is that it worked last night before I saved for the night and I haven't made any changes since and now the error. UGH I'm confused.
Code:
Public Sub ProjNumbrReq()
'Call ProjNumbrReq
Dim myCell As Range
With Worksheets("Travel Expense Voucher")
If .Range("F5") = 2 Then
For Each myCell In .Range("W16:W46")
If myCell.Value>0,And.Cells(myCell.row,"N")="" Then
MsgBox "Project Number must be provided on each line where reimbursement is being claimed.", vbCritical, "Important:"
Exit Sub
End If
Next myCell
End If
End With
End Sub
Last edited: