If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed.
Please Register to Remove these Ads
Private Sub Workbook_Open() Dim LDate As String LDate = Date Sheets("Sheet1").Range("a1") = LDate End Sub