Weekday is a regular VBA-function

instead of
Code:
If Application.WorksheetFunction.Weekday(DTPicker1, 2) = 5 Then
use
Code:
If Weekday(DTPicker1, 2) = 5 Then