DOW (day of week) function

The reason why you get an error is because the function/sub "DOW" does not exist. But you can make a DOW function.

Try this:

Private Function DOW() As String
DOW = WeekDay(Date)
If DOW = 1 Then
DOW = "Sunday"
ElseIf DOW = 2 Then
DOW = "Monday"
ElseIf DOW = 3 Then
DOW = "Tuesday"
ElseIf DOW = 4 Then
DOW = "Wednesday"
ElseIf DOW = 5 Then
DOW = "Thursday"
ElseIf DOW = 6 Then
DOW = "Friday"
ElseIf DOW = 7 Then
DOW = "Saturday"
End If
End Function

Usage:

intDayofWeek = DOW()
MsgBox intDayofWeek