Replace "[directory]" with the target directory, and replace "[filename]" with the desired name of the text file. Type "End Sub" without quotation marks. Close the Visual Basic window.