Error in VBA code

[ozman86]

Compile Error:
Syntax Error


the above error is coming for the below code . it happens when inject the Day condition

Private Sub TestFileExistence()


If FileFolderExists("\\cf3.pepsico.pvt\psra\Output\BI 4\Exec Dollars - Current Period.pdf")and
weekday(date) = 2 Then

Range("A1").Value = "X"

Else

Range("A1").Value = "!"

End If
End Sub