Export Rang To Text File With VBA

[ho_gh_m]

I have a sheet that has some columns and rows.
I want to save a separate text file on the desktop with one click from the range of each column.
I have a code but it works incompletely
This code only stores the columns without the range in one file, but I need the range of each column to be stored in a separate text file.
Please Help
Thank you

My Code :

Sub AnExample()
If ExportRange(Intersect(ActiveSheet.UsedRange, Columns("B")), "GetDesktop()" & _
Format(Date, "ddmmyy") & ".txt", Chr$(9)) Then MsgBox "File Saved"
End Sub
Function ExportRange(ByVal TheRange As Range, ByVal TheFile As String, Optional ByVal _
vDelimiter As String = ",") As Boolean
Dim URArr(), i As Long, j As Long, vFF As Long, ExpArr() As String
On Error GoTo QuitFunc
URArr = TheRange.Value
ReDim ExpArr(1 To UBound(URArr, 1))
For i = 1 To UBound(URArr, 1)
For j = 1 To UBound(URArr, 2) - 1
ExpArr(i) = ExpArr(i) & URArr(i, j) & vDelimiter
Next 'j
ExpArr(i) = ExpArr(i) & URArr(i, UBound(URArr, 2))
Next 'i
vFF = FreeFile
Open TheFile For Output As #vFF
For i = 1 To UBound(ExpArr)
Print #vFF, ExpArr(i)
Next 'i
Close #vFF
ExportRange = True
Exit Function
QuitFunc:
End Function

 

[Herakles]

I have a sheet that has some columns and rows.
I want to save a separate text file on the desktop with one click from the range of each column.
I have a code but it works incompletely
This code only stores the columns without the range in one file, but I need the range of each column to be stored in a separate text file.
Please Help
Thank you

My Code :

Sub AnExample()
If ExportRange(Intersect(ActiveSheet.UsedRange, Columns("B")), "GetDesktop()" & _
Format(Date, "ddmmyy") & ".txt", Chr$(9)) Then MsgBox "File Saved"
End Sub
Function ExportRange(ByVal TheRange As Range, ByVal TheFile As String, Optional ByVal _
vDelimiter As String = ",") As Boolean
Dim URArr(), i As Long, j As Long, vFF As Long, ExpArr() As String
On Error GoTo QuitFunc
URArr = TheRange.Value
ReDim ExpArr(1 To UBound(URArr, 1))
For i = 1 To UBound(URArr, 1)
For j = 1 To UBound(URArr, 2) - 1
ExpArr(i) = ExpArr(i) & URArr(i, j) & vDelimiter
Next 'j
ExpArr(i) = ExpArr(i) & URArr(i, UBound(URArr, 2))
Next 'i
vFF = FreeFile
Open TheFile For Output As #vFF
For i = 1 To UBound(ExpArr)
Print #vFF, ExpArr(i)
Next 'i
Close #vFF
ExportRange = True
Exit Function
QuitFunc:
End Function

Do you want to select a cell in a column that exports just that column to a text file or select a cell in a range that then
exports each column in the range to a seperate text file?

 

[ho_gh_m]

Do you want to select a cell in a column that exports just that column to a text file or select a cell in a range that then
exports each column in the range to a seperate text file?

Look at the picture
I want to save a separate text file from each range with the name of the column on the desktop with one click.
For example:
in column B with the name MIK from the range B4:B6 , in column C with the name EOW from the range C5:C7 and in column D with the name RWO from the range D8:D10

 

[Herakles]

Look at the picture
I want to save a separate text file from each range with the name of the column on the desktop with one click.
For example:
in column B with the name MIK from the range B4:B6 , in column C with the name EOW from the range C5:C7 and in column D with the name RWO from the range D8:D10

Just columns B to D or any column?

Where do the rows for the ranges come from?

 

[ho_gh_m]

Just columns B to D or any column?

Where do the rows for the ranges come from?

Each column
From the same column

 

[ho_gh_m]

can anyone help me?