vba code for day

[mrinal saha]

Hi Folks,

need a simple code just to validate ,if today is 15th , 30th or 31st day of the month. pop up a msg on screen or on excel.
I wonder if there is any worksheetfunction for this.

Thanks,
Mrinal

 

[dave3009]

If you want this in a cell then try

=IF(OR(DAY(TODAY())={15,30,31}), "Message", "")

 

[Peter_SSs]

If vba (per your thread title) then is this what you want?

<font face=Courier New><br><br><SPAN style="color:#00007F">Sub</SPAN> CheckDay()<br>    <SPAN style="color:#00007F">Dim</SPAN> lDay <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    lDay = Day(Date)<br>    <SPAN style="color:#00007F">If</SPAN> lDay = 15 <SPAN style="color:#00007F">Or</SPAN> lDay = 30 <SPAN style="color:#00007F">Or</SPAN> lDay = 31 <SPAN style="color:#00007F">Then</SPAN><br>        MsgBox "This is one of your days (" & lDay & ")"<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>