Userform Textbox Date - Subtract Weekend

Hello,

I have a userform that I use to run some data for the previous day which is simple enough for me to use on UserForm_Initialize()

Me.txtDate = Date - 1

Is there an easy way to format it so if the form runs on Monday, it subtracts the weekend so it enters Friday's date ?

Thanks for any help!

Hello there try this

If VBA.Format(VBA.Date, "ddd") = "Mon" Then 'if today's date is monday then
    Me.txtdate = VBA.Date - 3   'txtdate is equal to friday's date
Else
    Me.txtdate = VBA.Date - 1   'else it's equal to today's date
End If

rvasquez,

This works like a charm... just what I needed. Thanks very much for your time and help!