Save a sheet as an a tab delimitted text file and close the copy of the sheet if it is saved or if the macro is aborted

[nando88]

I have a save function, that saves a specific sheet as a tab delimitted text file. The sheet is very hidden and it becomes visible only when saving the file and becomes very hidden once again, but if I abort the process, the file stays visible and that is what I wish to avoid.
Can someone please tell me how can I fix this issue?
Thanks in advance.

This is the code that I am currently using:

Sub save()
Application.DisplayAlerts = False
Sheets("Format3").Visible = True
Sheets("Format3").Select
Sheets("Format3").Copy
New_file = InputBox("Ingrese el nombre del archivo que desea salvar", "Archivo a salvar")

Set File_Dialog = Application.FileDialog(msoFileDialogFolderPicker)
File_Dialog.AllowMultiSelect = False
File_Dialog.Title = "Select the Directory to Save the File"
If File_Dialog.Show <> -1 Then
Exit Sub
End If
'ChDir "D:\"
ActiveWorkbook.SaveAs Filename:=File_Dialog.SelectedItems(1) & "\" & New_file & ".txt", FileFormat:=xlText, _
CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close
Sheets("Format3").Visible = xlSheetVeryHidden
End Sub

 

[rollis13]

Add this:

Sheets("Format3").Visible = xlSheetVeryHidden

just before the:

Exit Sub

and move the same line before:

ActiveWorkbook.Close

PS. By the way, why are you using:

Sheets("Format3").Copy

 

[rollis13]

Sorry, update to my previous post. Don't worry about the PS. (I got it) and don't move the line before ActiveWorkbook.Close because it's okay where it is. Just add a copy of it before Exit Sub.