We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Assistance is greatly appreciated!
Sub Make_Non_Macro_Sheet_From_Tab() 'This sub is intended to create a separate sheet from the active tab.' 'It will prompt for a file name with the current users desktop as the default,' 'remove empty tabs from the newly created sheet, and ensure that it is macro free.' dtpath = CreateObject("wscript.shell").SpecialFolders("Desktop") Set wb = ActiveWorkbook Set ws = wb.ActiveSheet wb.Worksheets.Add ws.Cells.Copy ActiveSheet.Cells ActiveSheet.Move fn = Application.GetSaveAsFilename(dtpath) If fn <> False Then ActiveWorkbook.SaveAs fn & "xlsx" Else MsgBox "file not saved" End If End Sub
Join the community of 500,000 technology professionals and ask your questions.