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,
Dim MilyenNap As Long
Dim FileNap As Long
MilyenNap = Weekday(Date)
FileNap = Evaluate("=IF(MilyenNap=4,6,MilyenNap)")