Sub ExportAccessSwitch()
'Update 16.04.2019
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
'ok ActiveSheet.Range("A1:A411").Select
Sheets("Access_Switch").Visible = True
Application.Goto Sheets("Access_Switch").Range("SwitchAccess")
'Application.Goto ActiveWorkbook.Sheets("Access_Switch").Range("A1:A411")
'Application.Goto Workbooks("Testmacro.xlsm").Sheets("Access_Switch").Range("a1:a441")
'xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Sheets("Access_Switch").Visible = False
'Set WorkRng = Application.InputBox("Range", xTitleId, "a1:a441", Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(InitialFileName:="Template-Access_Switch", fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub