We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Workbook_Open() With Application .DisplayAlerts = False End With ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways With Application .DisplayAlerts = False End With Debug.Print "open" WriteFile Environ("USERNAME") & " entered at " & Now() End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Debug.Print "closed" WriteFile Environ("USERNAME") & " left at " & Now() End Sub Sub WriteFile(strText As String) Dim MyFile As String, fNum As Integer MyFile = "\\ukhibmdata02\rights\Asset Services Risk Team\DCDIV002 Breaks\DCDIV.txt" 'set and open file for output fNum = FreeFile() Open MyFile For Append As fNum 'write project info and then a blank line. Note the comma is required Print #fNum, strText Write #fNum, Close #fNum End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Summing non-contiguous cells based on text criteria of another cell in Excel||3||31|
|Formula to report text if any date in a range is found in another range||2||21|
|Vba code to spell check an excel document in a set range||9||26|
|how to insert the calendar comtrol for excel cell||10||20|