Excel VBA - Weekday check

Dear Experts,

Can you please have a short look in the attached code, I would like to check what is the todays day in weekday and if it is 4, then assign to a variable 6, and if it is different than 4 then assign the current weekday.

For sure this line has the error FileNap = Evaluate("=IF(MilyenNap=4,6,MilyenNap)")

thanks,

Sub DayCheck()
Dim MilyenNap As Long
Dim FileNap As Long

MilyenNap = Weekday(Date)
FileNap = Evaluate("=IF(MilyenNap=4,6,MilyenNap)")
MsgBox FileNap
End Sub

Select all Open in new window