You can do it in the workbook_Open event

Private Sub Workbook_Open()
OutLookDate = DateSerial(Year(Date),Month(Date)+6,1)
End Sub

Place this in the ThisWorkbook Module

See Chip Pearson's page on events
http://www.cpearson.com/excel/events.htm


Or just set it in your first macro that is to run.

--
Regards,
Tom Ogilvy


"jerry chapman" wrote in message
m...
I have a private variable:

Private outlookDate As Date

How can I set the value of this variable before I run any macros?