Identify column headers and save original formatting if necessary. Pull the data from many sheets to one spreadsheet, sheet or a custom location. One click to delete all sheets except current active one with Kutools for Excel How to delete all sheets except specified/current one in Excel?įor deleting all sheets in an Excel workbook except specified one or current active sheet, you can deal with this as below methods shown.Quickly find duplicate or unique cells and rows in one table, or compare two columns or sheets to highlight, copy, move, or delete the results. With below VBA code, you can delete all sheet in a workbook except specific one in Excel.ġ. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic Application window.Ģ. VBA code: Delete all sheets except specified ones Sub DeleteSheets1()įor Each xWs In Click Insert > Module, then copy and paste below VBA code into the Module window. If xWs.Name 'Sheet1' And xWs.Name 'Sheet2' Thenġ.

“ Sheet1” and “ Sheet2” are sheets you want to keep in current workbook.

You can change them based on your needs.Ģ. If you want to delete all but keep more sheets, please add code And xWs.Name ' your sheet name' before the Then word in the sixth line of the code. If xWs.Name 'Sheet1' And xWs.Name 'Sheet2' And xWs.Name 'your sheet name' Thenģ. Kutools for excel license name and code code#įor example, for keeping sheet1 in current workbook, you need to change the sixth line code to: If xWs.Name 'Sheet1' Thenĭelete all sheets except current active one with Kutools for Excel (One click only) If you just want to keep one sheet and delete all from the workbook, please remove all Andcondition in the code. Y ou can easily remove all sheets except current active sheet with just one click by Delete All Inactive Sheets utility of Kutools for Excel.īefore applying Kutools for Excel, please download and install it firstly.ġ. Kutools for excel license name and code install# Click Kutools Plus > Worksheet > Delete All Inactive Sheets.ģ. Then a dialog box pops up, if you determine to delete all sheets except active one, click the OK button, otherwise, click the Cancel button.

The Best Office Productivity Tools Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80% If you want to have a free trial ( 30-day) of this utility, please click to download it, and then go to apply the operation according above steps.Īdd text in middle of selected cells with Kutools for Excel Then all sheets are deleted except the current active one in your workbook.

Reuse: Quickly insert complex formulas, charts and anything that you have used before Encrypt Cells with password Create Mailing List and send emails.

Super Formula Bar (easily edit multiple lines of text and formula) Reading Layout (easily read and edit large numbers of cells) Paste to Filtered Range.

Kutools for excel license name and code code#.

Kutools for excel license name and code install#.

Kutools for word license name and code