I am trying to create a master accrued leave workbook.
I want an action to take place on the last day of each month.
That action is to insert a value of "14".

Dean
You don't provide what you want to happen when the day of the month is
NOT the last day of the month. You also don't say where you want the "14"
inserted.
I assumed you want nothing to happen if the day is not the last day of
the month, and you want the "14" inserted in A1 of a sheet named
"TheSheetName".
The following macro will do the above. Note that this macro is a
Workbook_Open macro and must be placed in the Workbook module. To do this,
open the file in which you want this to happen. Right-click on the Excel
icon immediately to the left of the "File" in the menu at the top of your
sheet, select View Code, and paste this macro into that module. X-out of
that module (click on the "X" in the top right corner of the module) to
return to your worksheet.
This macro will run every time the file is opened. It checks the system
date and if the day of the system date is the last day of the current month,
it enters "14" in A1 of the "TheSheetName" sheet. Watch out for line
wrapping in this message. Expand this message to full screen to see the
macro properly.
You probably want more than this so post back. HTH Otto
Private Sub Workbook_Open()
If Day(Date) = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1) Then
_
Sheets("TheSheetName").Range("A1") = 14
End Sub
"Dean" wrote in message
...
I am trying to create a master accrued leave workbook.
I want an action to take place on the last day of each month.
That action is to insert a value of "14".

I received a Compile Error, Syntax error.
I changed the TheSheetName to the actual sheet name and I changed the cell
name to H7.
At first I left the double-quotes in, then I took it out.
Both times the same error (Compile Error, Syntax Error) appeared.

"Otto Moehrbach" wrote:

Dean
You don't provide what you want to happen when the day of the month is
NOT the last day of the month. You also don't say where you want the "14"
inserted.
I assumed you want nothing to happen if the day is not the last day of
the month, and you want the "14" inserted in A1 of a sheet named
"TheSheetName".
The following macro will do the above. Note that this macro is a
Workbook_Open macro and must be placed in the Workbook module. To do this,
open the file in which you want this to happen. Right-click on the Excel
icon immediately to the left of the "File" in the menu at the top of your
sheet, select View Code, and paste this macro into that module. X-out of
that module (click on the "X" in the top right corner of the module) to
return to your worksheet.
This macro will run every time the file is opened. It checks the system
date and if the day of the system date is the last day of the current month,
it enters "14" in A1 of the "TheSheetName" sheet. Watch out for line
wrapping in this message. Expand this message to full screen to see the
macro properly.
You probably want more than this so post back. HTH Otto
Private Sub Workbook_Open()
If Day(Date) = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1) Then
_
Sheets("TheSheetName").Range("A1") = 14
End Sub
"Dean" wrote in message
...
I am trying to create a master accrued leave workbook.
I want an action to take place on the last day of each month.
That action is to insert a value of "14".

Both the sheet name and the cell address (H7) must be in quotes. Or you
were victimized by line wrap. If this is the case, send me via email a
small file representative of your file. Make sure that the error is present
in the file you send me. My email address is . Remove
the "nop" from this address. HTH Otto
"Dean" wrote in message
...
I received a Compile Error, Syntax error.
I changed the TheSheetName to the actual sheet name and I changed the cell
name to H7.
At first I left the double-quotes in, then I took it out.
Both times the same error (Compile Error, Syntax Error) appeared.

"Otto Moehrbach" wrote:

Dean
You don't provide what you want to happen when the day of the month
is
NOT the last day of the month. You also don't say where you want the
"14"
inserted.
I assumed you want nothing to happen if the day is not the last day
of
the month, and you want the "14" inserted in A1 of a sheet named
"TheSheetName".
The following macro will do the above. Note that this macro is a
Workbook_Open macro and must be placed in the Workbook module. To do
this,
open the file in which you want this to happen. Right-click on the Excel
icon immediately to the left of the "File" in the menu at the top of your
sheet, select View Code, and paste this macro into that module. X-out of
that module (click on the "X" in the top right corner of the module) to
return to your worksheet.
This macro will run every time the file is opened. It checks the
system
date and if the day of the system date is the last day of the current
month,
it enters "14" in A1 of the "TheSheetName" sheet. Watch out for line
wrapping in this message. Expand this message to full screen to see the
macro properly.
You probably want more than this so post back. HTH Otto
Private Sub Workbook_Open()
If Day(Date) = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
Then
_
Sheets("TheSheetName").Range("A1") = 14
End Sub
"Dean" wrote in message
...
I am trying to create a master accrued leave workbook.
I want an action to take place on the last day of each month.
That action is to insert a value of "14".