If day is friday then MsgBox "Friday"

**HerryMarkowitz** · 02-14-2014, 12:17 PM

Greetings,
Following code is okey.

If Date = CDate("14.02.2014") Then MsgBox Prompt:="Date is okey!", Buttons:=vbInformation, Title:="www.excelforum.com"

I need to change code above like following;
Red line need changing.

If Date = Friday Then MsgBox Prompt:="Friday!", Buttons:=vbInformation, Title:="www.excelforum.com"

Best wishes.

**nilem** · 02-14-2014, 12:27 PM

try

If Weekday(Date, vbMonday) = 5 Then MsgBox "Friday!", 64
MsgBox Weekday(#2/13/2014#, vbMonday) '4

**JieJenn** · 02-14-2014, 12:28 PM

If format(now(), "dddd")= "Friday" THEN

**MickG** · 02-14-2014, 12:29 PM

Try:-

If Weekday(Date) = vbFriday Then MsgBox Prompt:="Friday!", Buttons:=vbInformation, Title:="www.excelforum.com"

**HerryMarkowitz** · 02-14-2014, 12:40 PM

Thanks everybody.

Re: If day is friday then MsgBox "Friday"