One way:

Option Explicit
Sub MonData()
If Weekday(Worksheets("sheet999").Range("F2").Value) = vbMonday Then
frmMon.Show
Else
MsgBox "Unable to Continue"
End If
End Sub

I'd specify that worksheet, too.


K1KKKA wrote:

Am using the formula below to check whether the current day in cell F2
is a Monday, if so i would like to have the 'FrmMon' allowed to be
shown, but if the cell F2 is any other day of the week it will display
the msgbox and not show the 'FrmMon'

obviously i am pasting it into this site because it is not working as
i expected, anyone know how to change the code to perform the task??

Would appreciate any assistance :)

Sub MonData()
If (Range("F2")) = "Monday" Then Exit Sub
MsgBox "Unable to Continue"
frmMon.Show
End Sub

Steve

--

Dave Peterson