VBA - WeekDay(Now) function giving Compile Error

[alanj]

Trying to practice using Subs with Subs.

This example isn't working, though:


Option Explicit


Sub Main()

Dim SubToCall As String

Select Case WeekDay(Now)

Case 1, 7: SubToCall = "Weekday"

Case Else: SubToCall = "Weekend"

End Select

Application.rn SubToCall


End Sub


Sub Weekend()

MsgBox "Today is a weekend"

End Sub


Sub WeekDay()

MsgBox "Today is a weekday, sucka!"

End Sub

 

[Hui]

Alan


Is this what you want?

[pre]

Sub Main()
Dim SubToCall As String
Select Case Application.WeekDay(Now())
Case 1, 7: SubToCall = "Weekday"
Case Else: SubToCall = "Weekend"
End Select
WeekStatus (SubToCall)
End Sub

Sub WeekStatus(SubToCall)
If SubToCall = "Weeday" Then
MsgBox "Today is a weekday"
Else
MsgBox "Today is a weekend"
End If

End Sub

[/pre]

 

[Krishnaoptif]

Hi Alanj,


find below right code for your requirement.. will not show compile error..


Sub Main()

Dim SubToCall As String

Select Case Application.WeekDay(Now)

Case 1, 7: SubToCall = "Weekday"

Case Else: SubToCall = "Weekend"

End Select

Application.Run SubToCall


End Sub


Sub Weekend()

MsgBox "Today is a weekend"

End Sub


Sub WeekDay()

MsgBox "Today is a weekday, sucka!"

End Sub


Regards,

Krishna

 

[alanj]

Thanks Hui and Krishnaoptif.


Hui - your resulted in "Today is a weekend" for some reason (Today is Thursday).

Krishnaoptif's worked well.


So, the missing element was adding "Application." before the WeekDay function?

Thanks.