or make a var above, something like this:
loc = application.path & "\Log.txt"
open loc for...

"Chip Pearson" wrote in message ...
Spence,

Change

Open Application.Path & "\Log.txt" _
to
Open "C:\Log.txt" _


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"spence" wrote in message
...
i have this to create a txt file in excel's program files
directory. how can i modify it to put the txt file on my
C:\ drive.


Private Sub workbook_beforeclose(cancel As Boolean)
Open Application.Path & "\Log.txt" _
For Append As #1
Print #1, "Stopped " & Now
Close #1
End Sub

TIA