It's very possible, but you really don't need to copy/paste it in, you can just write it to the file via text stream. I wrote up some code for you. When run it will take the column your cursor currently resides in and write it to a text file then ask you if you want to print it. I tried to comment it so you could maintain it without too much trouble. If you have any questions let me know!
<hr>
<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>
<SPAN style="color:#007F00">'Make sure this is set to the location of notepad on your PC.</SPAN>
<SPAN style="color:#00007F">Sub</SPAN> SendSelectedColumnToTextFile()
<SPAN style="color:#007F00">'This code was originally written by Aaron Bush 2006</SPAN>
<SPAN style="color:#007F00">'It is not to be altered or distributed,</SPAN>
<SPAN style="color:#007F00">'except as part of an application.</SPAN>
<SPAN style="color:#007F00">'You are free to use it in any application,</SPAN>
<SPAN style="color:#007F00">'provided the copywrite notice is left unchanged.</SPAN>
<SPAN style="color:#007F00">'</SPAN>
<SPAN style="color:#007F00">'Code Courtesy of</SPAN>
<SPAN style="color:#007F00">'Aaron Bush</SPAN>
<SPAN style="color:#007F00">'</SPAN>
<SPAN style="color:#007F00">'Copywrite verbage courtesy of Dev Ashish</SPAN>
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Err_Hnd
<SPAN style="color:#00007F">Dim</SPAN> strFileName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> strNotepadPath <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> rngCell <SPAN style="color:#00007F">As</SPAN> Excel.Range
<SPAN style="color:#00007F">Dim</SPAN> rngData <SPAN style="color:#00007F">As</SPAN> Excel.Range
<SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Excel.Worksheet
<SPAN style="color:#00007F">Dim</SPAN> win <SPAN style="color:#00007F">As</SPAN> Excel.Window
<SPAN style="color:#007F00">'*******These require a reference to the Microsoft Scripting Runtime Library.*******</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> fso <SPAN style="color:#00007F">As</SPAN> Scripting.FileSystemObject
<SPAN style="color:#00007F">Dim</SPAN> ts <SPAN style="color:#00007F">As</SPAN> Scripting.TextStream
<SPAN style="color:#007F00">'***********************************************************************************</SPAN>
<SPAN style="color:#007F00">'Prompt user for file name.</SPAN>
strFileName = Excel.Application.GetSaveAsFilename(FileFilter:="Text Files,*.txt")
<SPAN style="color:#007F00">'Exit sub if user hits the Cancel button.</SPAN>
<SPAN style="color:#00007F">If</SPAN> strFileName = "False" <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#007F00">'Make the file scripting object here so you can use it to verify you are not</SPAN>
<SPAN style="color:#007F00">'about to overwrite a file that already exists.</SPAN>
<SPAN style="color:#00007F">Set</SPAN> fso = VBA.CreateObject("Scripting.FileSystemObject")
<SPAN style="color:#007F00">'Check to see if file exists.</SPAN>
<SPAN style="color:#00007F">If</SPAN> fso.FileExists(strFileName) <SPAN style="color:#00007F">Then</SPAN>
<SPAN style="color:#007F00">'If file exists then verify with user they want to overwrite. Exit sub if they do not.</SPAN>
<SPAN style="color:#00007F">If</SPAN> MsgBox("You have selected a file name that already exists. " & _
"If you continue you will overwrite the pre-existing file." _
, vbExclamation + vbOKCancel, "Confirm Overwrite") = vbCancel <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Exit_Sub
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#007F00">'This action both sets the text-stream object and creates the file.</SPAN>
<SPAN style="color:#00007F">Set</SPAN> ts = fso.CreateTextFile(strFileName, <SPAN style="color:#00007F">True</SPAN>)
<SPAN style="color:#007F00">'Set the excel objects we will be working with.</SPAN>
<SPAN style="color:#00007F">Set</SPAN> ws = Excel.ActiveSheet
<SPAN style="color:#00007F">Set</SPAN> win = Excel.ActiveWindow
<SPAN style="color:#007F00">'Set the range to send to our text file. nteresect the selected column with the used range to</SPAN>
<SPAN style="color:#007F00">'get only the cells in column that actually have data.</SPAN>
<SPAN style="color:#00007F">Set</SPAN> rngData = Excel.Intersect(Excel.Columns(win.ActiveCell.Column), ws.UsedRange)
<SPAN style="color:#007F00">'Loop through the range and send each cell value to the text file as one line.</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> rngCell <SPAN style="color:#00007F">In</SPAN> rngData
ts.WriteLine rngCell.Value
<SPAN style="color:#00007F">Next</SPAN> rngCell
<SPAN style="color:#007F00">'Close the file you just created so you can print it if you want to.</SPAN>
ts.Close
MsgBox "Export complete.", vbInformation, "Export Complete."
<SPAN style="color:#007F00">'Ask user if they want to print the file.</SPAN>
<SPAN style="color:#00007F">If</SPAN> MsgBox("Do you want to print the file you just created?", vbYesNo + vbQuestion, "Print File?") = vbYes <SPAN style="color:#00007F">Then</SPAN>
strNotepadPath = "C:\WINDOWS\System32\<SPAN style="color:#00007F">Not</SPAN>epad.exe"
<SPAN style="color:#007F00">'This will find notepad if it's location is different then the default.</SPAN>
<SPAN style="color:#00007F">If</SPAN> Not fso.FileExists(strNotepadPath) <SPAN style="color:#00007F">Then</SPAN> strNotepadPath = NotepadPath
<SPAN style="color:#007F00">'If notpad not found then abort.</SPAN>
<SPAN style="color:#00007F">If</SPAN> LenB(strNotepadPath) = 0 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Exit_Sub
<SPAN style="color:#007F00">'Print using the print command line option in notepad.</SPAN>
Shell strNotepadPath & " /P " & strFileName
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
Exit_Sub:
<SPAN style="color:#007F00">'Close the textstream again in case of an error prior to it's normal close.</SPAN>
<SPAN style="color:#007F00">'Turn error handling off to prevent an infinite error loop if text stream</SPAN>
<SPAN style="color:#007F00">'is already closed.</SPAN>
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>
ts.Close
Err.Clear
<SPAN style="color:#007F00">'Restore Error Handling</SPAN>
<SPAN style="color:#00007F">On</SPAN> Error <SPAN style="color:#00007F">GoTo</SPAN> Err_Hnd
<SPAN style="color:#007F00">'Release all objects</SPAN>
<SPAN style="color:#00007F">Set</SPAN> ts = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> fso = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> win = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> ws = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Set</SPAN> ts = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#007F00">'Error handling routine.</SPAN>
Err_Hnd:
MsgBox Err.Description, vbCritical, "<SPAN style="color:#00007F">Error</SPAN>: " & Err.Number
<SPAN style="color:#00007F">Resume</SPAN> Exit_Sub
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Function</SPAN> NotepadPath() <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#007F00">'This code was originally written by Aaron Bush 2006</SPAN>
<SPAN style="color:#007F00">'It is not to be altered or distributed,</SPAN>
<SPAN style="color:#007F00">'except as part of an application.</SPAN>
<SPAN style="color:#007F00">'You are free to use it in any application,</SPAN>
<SPAN style="color:#007F00">'provided the copywrite notice is left unchanged.</SPAN>
<SPAN style="color:#007F00">'</SPAN>
<SPAN style="color:#007F00">'Code Courtesy of</SPAN>
<SPAN style="color:#007F00">'Aaron Bush</SPAN>
<SPAN style="color:#007F00">'</SPAN>
<SPAN style="color:#007F00">'Copywrite verbage courtesy of Dev Ashish</SPAN>
<SPAN style="color:#00007F">On</SPAN> Error <SPAN style="color:#00007F">GoTo</SPAN> Err_Hnd
<SPAN style="color:#00007F">Dim</SPAN> fs <SPAN style="color:#00007F">As</SPAN> FileSearch
<SPAN style="color:#00007F">Dim</SPAN> strSource <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Set</SPAN> fs = Excel.Application.FileSearch
fs.LookIn = "C:\"
fs.SearchSubFolders = <SPAN style="color:#00007F">True</SPAN>
fs.Filename = "Notepad.exe"
fs.MatchTextExactly = <SPAN style="color:#00007F">True</SPAN>
fs.Execute
<SPAN style="color:#00007F">If</SPAN> fs.FoundFiles.Count > 0 <SPAN style="color:#00007F">Then</SPAN>
NotepadPath = fs.FoundFiles(1)
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Function</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
strSource = ThisWorkbook.FullName & "!" & ThisWorkbook.VBProject.Name & "!Function <SPAN style="color:#00007F">Not</SPAN>epadPath"
Err.Raise 513, strSource, "Can not find Notepad installed on system."
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
Exit_Function:
<SPAN style="color:#00007F">If</SPAN> Not fs <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Set</SPAN> fs = <SPAN style="color:#00007F">Nothing</SPAN>
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Function</SPAN>
<SPAN style="color:#007F00">'Error handling routine.</SPAN>
Err_Hnd:
MsgBox Err.Description, vbCritical, "Error: " & Err.Number
<SPAN style="color:#00007F">Resume</SPAN> Exit_Function
<SPAN style="color:#00007F">End</SPAN> Function
</FONT>