'Callback for btnWeedDay1 getLabel
Sub WeekDayLabel(control As IRibbonControl, ByRef returnedVal)
'Stop
returnedVal = Left(WeekdayName(Weekday(DateSerial(Year(dtmDate), Month(dtmDate), Val(Right(control.ID, 2))))), 2)

returnedVal = Left(WeekdayName(Weekday(DateSerial(Year(dtmDate), Month(dtmDate), Val(Right(control.ID, 2))), vbUseSystemDayOfWeek)), 2)

End Sub

changing in system day of weeks will do the trick!
(was now on vbSunday),

Thank you for your co-operation and application,!!!

Regards,

Robert