Private Sub Export_Button_Click()
Dim export_file_name
export_file_name = Application.GetSaveAsFilename(, "Single File Web Page (*.mht),*.mht")
Sheets("master").Copy
ActiveWorkbook.SaveAs Filename:=export_file_name, FileFormat:=xlNormal
ActiveWindow.Close
End Sub
|