compile error sub or function not defined

[Pookiemeister]

I changed the date on my computer to test the following code so the current date would be a date that falls on a Monday.
If the current day of the week is a Monday, display the current date in Sheet1.Range("B1")
The error message occurs on the following line of code the word "today" is highlighted in blue:

Sheet1.Range("B1") = today()

The rest of the code:

Sub Weekdays()

    If weekday(Now()) = vbMonday Then
        MsgBox "Monday"
        Sheet1.Range("B1") = today()
    Else
        MsgBox Format$(Now, "dddd")
        Debug.Print Format$(Now, "dddd")
    End If


End Sub

Thank You

 

[MoshiM]

I changed the date on my computer to test the following code so the current date would be a date that falls on a Monday.
If the current day of the week is a Monday, display the current date in Sheet1.Range("B1")
The error message occurs on the following line of code the word "today" is highlighted in blue:

Sheet1.Range("B1") = today()

Today isn't a function. Change it to date.

 

[Fluff]

Change it to

Sub Weekdays()

    If Weekday(Date) = vbMonday Then
        MsgBox "Monday"
        Sheet1.Range("B1") = Date
    Else
        MsgBox Format$(Date, "dddd")
        Debug.Print Format$(Date, "dddd")
    End If


End Sub

 

[Pookiemeister]

Thank you all for your help. I forgot about using date. When I did use it, it worked.

 

[Fluff]

Glad we could help & thanks for the feedback