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.
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