I'm using this code to tell me what day of the week it is, as you can see by the code it shows up with a message box. i want it to paste the current weekday into a specific cell. so when clicked Tue would populate. or whatever day it was.
Sub TodaysDay()
Select Case DatePart("w", Date, vbMonday)
Case 1
MsgBox "Mon"
Case 2
MsgBox "Tue"
Case 3
MsgBox "Wed"
Case 4
MsgBox "Thur"
Case 5
MsgBox "Fri"
Case 6
MsgBox "Sat"
Case 7
MsgBox "Sun"
End Select
End Sub
Sub TodaysDay()
Select Case DatePart("w", Date, vbMonday)
Case 1
MsgBox "Mon"
Case 2
MsgBox "Tue"
Case 3
MsgBox "Wed"
Case 4
MsgBox "Thur"
Case 5
MsgBox "Fri"
Case 6
MsgBox "Sat"
Case 7
MsgBox "Sun"
End Select
End Sub