VB Code to change format, save in notepad file

Sub Save_K_as_Text()
    Application.ScreenUpdating = False
    With Columns("K:K")
        .NumberFormat = "#,##0.00;$-#,##0.00"
        Workbooks.Add xlWBATWorksheet
        .Copy Range("A1")
        ActiveWorkbook.SaveAs Filename:="C:\Temp\Test.qif", _
             FileFormat:=xlText, CreateBackup:=False
        ActiveWorkbook.Close False
    End With
    Application.ScreenUpdating = True
End Sub