jimbowvu80s
New Member
- Joined
- Jan 6, 2009
- Messages
- 22
I'm trying to have a message box popup if a user enters a date that is a Monday (or if they move off of the cell). Currently, I have a calendar that popus when the field is selected, but the user can bypass the calendar and enter the date manually.
I can't figure out how to pull Monday out of the date. The cell is currently formated to show March 19, 2009. Here's what I've been using.
Thank you
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "C3:E3" Then
Call OpenCalendar
End If
If Cells(3, 3).Value = vbMonday Then
MsgBox ("Today is Monday - Did you do a Safety Report")
End If
End Sub
---
I can't figure out how to pull Monday out of the date. The cell is currently formated to show March 19, 2009. Here's what I've been using.
Thank you
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "C3:E3" Then
Call OpenCalendar
End If
If Cells(3, 3).Value = vbMonday Then
MsgBox ("Today is Monday - Did you do a Safety Report")
End If
End Sub
---