A nice easy one hopefully?

Beckwa · Mar 22nd, 2002, 04:06 AM

Ok, with my System I would like the same pop up reminder message to appear on the last day of every month. Any ideas? Thanks,

BEX

Derek · Mar 22nd, 2002, 04:42 AM

Hi Beckwa

You could try this:

Right click a sheet tab, left click View Code.
In the VBA Project window at left select This Workbook.
Paste this code in the large white area

Private Sub Workbook_Open()
If Day(Date + 1) = 1 Then MsgBox "Last Day of Month"
End Sub

Above the code are 2 drop down boxes, in the left one select Workbook and in the right one select Open. Use Alt+F11 to return to sheet.

This message should display when you open the workbook on the last day of the month

regards
Derek

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 22nd, 2002, 04:06 AM	#1
Beckwa New Member Join Date: Mar 2002 Location: Northampton, UK Posts: 33	Ok, with my System I would like the same pop up reminder message to appear on the last day of every month. Any ideas? Thanks, BEX

Mar 22nd, 2002, 04:42 AM	#2
Derek Board Regular Join Date: Feb 2002 Location: Perth Australia Posts: 1,567	Hi Beckwa You could try this: Right click a sheet tab, left click View Code. In the VBA Project window at left select This Workbook. Paste this code in the large white area Private Sub Workbook_Open() If Day(Date + 1) = 1 Then MsgBox "Last Day of Month" End Sub Above the code are 2 drop down boxes, in the left one select Workbook and in the right one select Open. Use Alt+F11 to return to sheet. This message should display when you open the workbook on the last day of the month regards Derek