Adam,
Use this qualifier:
If Format(Date,"dd") = 30 Then
Insert Code Here
End if
Hope this helps, let me know!
Ryan
I dont understand what is causing this to run.
What event is running this code.
How it only do it once a month\
thanks.
Adam,
When you put this code in the ThisWorkBook module, everytime you open the workbook, it will check to see if the day is 30, and if it is, then the code you tell it to run will run. If you still don't understand, you can send me your stuff and i'll take a look at it.
Ryan
Private Sub Workbook_Open()
If Format(Date,"dd") = 30 Then
Insert Code Here
End if
End Sub