Quote:
Originally Posted by macropod
Quote:
I assume you have a function 'FileFolderExists' somewhere, since that's not a native VBA function.
Try:
Code:
Private Sub TestFileExistence()
If Dir("\\cf3.pepsico.pvt\psra\Output\BI 4\Exec Dollars - Current Period.pdf", vbNormal) <> "" Then
If Weekday(Date) = 2 Then
Range("A1").Value = "X"
Else
Range("A1").Value = "!"
End If
Else
Range("A1").Value = "!"
End If
End Sub
|
|
Don't waste paper and ink... it's a matter of logic:
If Dir("
\\cf3.pepsico.pvt\psra\Output\BI 4\Exec Dollars - Current Period.pdf", vbNormal) <> "" And Weekday(Date) = 2 Then
[A1] = "X"
Else
[A1] = "!"
End If
Bruno