Private Sub Workbook_Open() Open Application.Path & "\text.txt" For Append As #1 Print #1, "Started " & Now Close #1 End Sub