sgmpatnaik
Active Member
Hello
Good Afternoon
how to SaveAs a particular Tab in a new Workbook with fixed formats, xlValues
i can manage the code but there is one problem that i have some cells are merged so i can't manage that part
here i have a code which is Save As with formulas and fixed formats
but i want to Save the Sheet with xlValues and Format
kindly help
With Regards
Good Afternoon
how to SaveAs a particular Tab in a new Workbook with fixed formats, xlValues
i can manage the code but there is one problem that i have some cells are merged so i can't manage that part
here i have a code which is Save As with formulas and fixed formats
Code:
Sub SaveSheet()
Dim New_file_name
' Written by Barrie Davidson
New_file_name = Application.GetSaveAsFilename(, "Microsoft Excel Workbook (*.xls), *.xls")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=New_file_name, FileFormat:=xlNormal
ActiveWindow.Close
End Sub
but i want to Save the Sheet with xlValues and Format
kindly help
With Regards