Sub outputToTxt()
Dim filePath as String
Dim textFile as Integer
Dim wholeFile As String
filePath = "C:\Users\Windows\Desktop & "\" & "NAMEYOUWANTTOSAVEFILEAS" & ".txt."" 'here you should enter the location where you want notepad to be saved on your computer
textFile = FreeFile
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Textfile]#Textfile[/URL] [/URL] , textYouWantToEnter 'overwrite textYouWantToEnter with the text you want to be output to notepad
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Textfile]#Textfile[/URL] [/URL] , textYouWantToEnter 'overwrite textYouWantToEnter with the text you want to be output to notepad
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Textfile]#Textfile[/URL] [/URL] , textYouWantToEnter 'overwrite textYouWantToEnter with the text you want to be output to notepad
Print [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Textfile]#Textfile[/URL] [/URL] , textYouWantToEnter 'overwrite textYouWantToEnter with the text you want to be output to notepad
etc, etc.
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=TextFile][URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Textfile]#Textfile[/URL] [/URL]