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

Hi,

Sub Steffen()

Dim newWb As Workbook
Dim oldWb As Workbook

Set oldWb = ThisWorkbook

Open "C:\Users\Keith\Documents\ATest\" & 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

Sheets(2).Range("A:K").Copy
Application.DisplayAlerts = False
Set newWb = Workbooks.Add
    With newWb
        .Sheets(1).Range("A1").PasteSpecial xlPasteAll
        .Sheets(1).UsedRange.RowHeight = 12.75
        With Sheets(1).PageSetup
        .PrintArea = oldWb.Sheets(3).PageSetup.PrintArea
        .Orientation = xlLandscape
        .PrintGridlines = True
        .CenterHeader = oldWb.Sheets(4).Range("C3") & "_" & oldWb.Sheets(4).Range("C4")
        .Zoom = 85
        End With
        .SaveAs "C:\Users\keith\Documents\ATest\" & oldWb.Sheets(4).Range("C8").Value & ".xlsx", FileFormat:=51
        .Close
    End With
On Error GoTo err

err:
Application.DisplayAlerts = True

End Sub