Macros To Save Worksheet as New xlsx file & Save Another Worksheet As A Text File

Hi

Code with a few changes

Sub Steffen()

Open "C:\\Users\Path\" & Sheets(4).Range("C6").Value & ".txt" For Append As #1
    For i = 1 To Sheets(3).UsedRange.Rows.Count
        Print #1, Sheets(3).Cells(i, 1).Value
    Next i
Close #1

On Error GoTo err
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Path\" & Sheets(4).Range("C8").Value & ".xlsx", FileFormat:=51
err:
Application.DisplayAlerts = True

End Sub

Hi Steffen,

Having tested and modified your earlier post I was just about to reply to explain the problems that were left. And now I've found that you've already spotted them so that's saved me some writing. Thank you.

The code works brilliantly except for one thing. When the xlsx file is created I only want the sheet "Data Sheet" to be saved not the whole workbook.

Regards

Keith