Run Different Marcos based on Day of the Week

[ardanni90]

Hello All,

So I am trying to run 3 different macros based on the day of the week. The code I found worked when I just used one day but when I entered the same code in for all 5 days, I keep getting the error: Block If without End If.

Here is the code I have so far:

Sub Datetest()

Dim sDate As String
sDate = Format(Date, "ddd")
If sDate = "Mon" Then
Run "Monday"
Else
If sDate = "Tue" Then
Run "Tuesday"
Else
If sDate = "Wed" Then
Run "Macro1"
Else
If sDate = "Thu" Then
Run "Macro1"
Else
If sDate = "Fri" Then
Run "Macro1"
End If
End If

End Sub

Any help would be much appreciated.

Thanks!

 

[Jonmo1]

Try

Select Case sDate
    Case "Mon": Application.Run "Monday"
    Case "Tue": Application.Run "Tuesday"
    Case "Wed", "Thu", "Fri": Application.Run "Macro1"
End Select

 

[Michael M]

Maybe

Sub Datetest()
Dim sDate As String
sDate = Format(Date, "ddd")
If sDate = "Mon" Then
Run "Monday"
ElseIf sDate = "Tue" Then Run "Tuesday"
ElseIf sDate = "Wed" Or sDate = "Thur" Or sDate = "Fri" Then Run "Macro1"
End If
End Sub

 

[ardanni90]

So I dont get the error anymore but when it gets to the the "Wed" line, it just skips past that and does not run "Marco1"

Do I still need to Dim sDate As String?

 

[Michael M]

Is Macro1 actually called "Macro1"....if the syntax is incorrect it won't fire the Macro
AND a slight typo for Thursday

Sub Datetest()
Dim sDate As String
sDate = Format(Date, "ddd")
If sDate = "Mon" Then
Run "Monday"
ElseIf sDate = "Tue" Then Run "Tuesday"
ElseIf sDate = "Wed" Or sDate = "Thu" Or sDate = "Fri" Then Macro1
End If
End Sub

 

[ardanni90]

It is called "macro1" but I was able to get it to work.

Thanks for your help!!