MACRO - Specific Worksheet to save as TXT File

[dino2176]

Trying to save the data in worksheet name "CONCATENATE" as a text file, in the current workbook directory, same name as work book, close text file.

Thanks in advance.

<code class="vbscript">Sub Macro4()
'
' Macro4 Macro
'

'
    Sheets("Concatenate").Select
    Columns("A:A").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=
        ActiveWorkbook.Path & "\"
        & FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

</code>

 

[footoo]

Sub Macro4()
Dim wb As Workbook
Set wb = ActiveWorkbook
Sheets("Concatenate").Columns("A:A").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
    wb.Path & "\" & Left(wb.Name, InStr(wb.Name, ".") - 1) & ".txt", _
    FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close saveChanges:=True
End Sub

 

[dino2176]

thankyou, worked like a charm.