Saving a Dynamic Range as a .txt file

[RichardElk]

Hello All,

I have done some searching/experimenting and have been unable to find an adequate solution for my problem.

What I would like to do is use a macro to copy a range of cells (N7:N####, where the value of #### is defined in cell O7) into a text file that uses the current date as the default file name and saves the .txt file into a directory of the user's choosing. The text within the range are formatted exactly as required in the text file and can not have additional characters added.

 

[CharlesChuckieCharles]

Problem with text files is they don't support a lot of Formating

But anyway

Sub pasteSelectionTotxt()
Dim Printvar As Variant
Dim Mycell As Range

ActiveSheet.Range("G7:G" & Range("O7").Value).Select

Open "C:\TEMP\" & Format(Now(), "DD-MMM-YYYY") & ".txt" For Output As #1

For Each Mycell In Selection
   Print #1, Mycell.Value
Next Mycell
Close #1
End Sub

I obviously used G instead of N

This writes out a Column of cells as a text file

 

[RichardElk]

CharlesCC, You. Are. The. Man.

It worked like a charm. Tweaked it a bit with some user prompts and she was ready to roll.

I cant thank you enough.