Could someone please tell me why this formula doesnt work,thank you.
Private Sub Workbook_Open()
Dim TodayDate As Date
TodayDate = Date
If WeekdayName(Weekday(Now)) = "5" _
Then ThisWorkbook.Saveas Filename:=Format(TodayDate, "mm_dd_yy")
Call Delete_weeklytranssheet

End Sub

I have the delete macro on the end because I want it to save the woorkbook as the days date if it is a wednesday then delete the sheet, if someone knows why it wont work could you please tell me how to fix it.