If Statement not working with Weekday function in VBA

[joellen]

This program works seamlessly when I have the cell referenced to today's date and it is Friday, but when I want to type in a date that isn't =Today() for some reason it does not recognize that the typed in date is a Friday.

Can someone help me figure out why that is? From my understanding, vbFriday is associated with an integer value (6) so when I say

Dim A6 As Integer

If Weekday(A6)=6 Then
Else

in theory, it should recognize this and save my file in the Completed Time Sheets folder I have pathed below if the typed in date is a Friday. But it keeps putting it in the Incompleted Time Sheets folder.

Thank you in advance!

Sub Workbook_BeforeClose()

Application.EnableEvents = False
Application.DisplayAlerts = False

A6 = Date


If Weekday(A6) = vbFriday Then
    ThisWorkbook.SaveAs ("C:\Time Sheets\Completed Time Sheets\" + "CMB(DONE)" + ".xlsm")
    
    ThisWorkbook.Saved = True
    Application.DisplayAlerts = True


Else


    ThisWorkbook.SaveAs ("C:\Time Sheets\Incompleted Time Sheets\" + "CMB(NOT DONE)" + ".xlsm")
    
    ThisWorkbook.Saved = True
    Application.DisplayAlerts = True
    
End If


  If Application.Workbooks.Count = 1 Then
        
        Application.Quit
        
    Else
    
        ActiveWorkbook.Close
        
    End If


End Sub

 

[Fluff]

Bearing in mind that today is Wednesday, this works for me

Sub chk()
   Dim Dt As Date
   
   Dt = Date + 2
   If Weekday(Dt) = vbFriday Then
      MsgBox "Friday"
   Else
      MsgBox "Not friday"
   End If
End Sub

 

[joellen]

This does work, but I'm trying to reference a later date, for example, if I type the date 01/04/2019 in the cell I'm referencing in that function, it saves my file in the Incomplete Time sheet Folder and does not recognize the 4th as being a Friday. Is this because the Weekday function can only reference today's date?

 

[Fluff]

You're referencing any cell in your code.
You have a variable called A6, should that be a cell reference?

 

[kvsrinivasamurthy]

Change this line

If Weekday(A6) = vbFriday Then

as

If Weekday(A6) = Weekday(vbFriday) Then

 

[Norie]

Should it not be Range("A6").Value?

If Weekday(Range("A6").Value) = vbFriday Then

 

[joellen]

Boy do I feel silly.
This is exactly what I needed, I was trying to grab the cell as reference but the way I had it coded was setting a variable instead. Thank you for your help!