VBA – Loop through sheets
This code snippet can be used if you want to loop thorugh the sheets in your workbook, either because you want to add something to everysheet, or – as in the example – you want to delete sheets with a specific name.
Sub slet_Faner() Application.DisplayAlerts = False ' Makes it unnecessary for the user to approve the deletion Dim ws As Worksheet For Each ws In Worksheets If ws.Name = "Home" Then ws.Delete 'Delete if name of sheet is "Home" Next Application.DisplayAlerts = True End Sub
Of course, if you want all sheets BUT the one sheet with a specific name, you just use:
Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "Home" Then ws.Delete 'Delete if name of sheet ISN'T "Home" Next
M | T | W | T | F | S | S |
---|---|---|---|---|---|---|
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 |
Recent Posts
- VBA – Import CSV file
- VBA – Get name of file without extension
- UserForm Listbox – Populate list and extract selected items
- VBA – Retrieve Last Row From More Than One Column
- VBA – Check Extension of File
- VBA – Delete PivotTables
- VBA – Add New WorkSheet After The Last Worksheet
- VBA – Toggle Between Open Excel Files
- VBA – Looping through all files in a folder
- VBA – Create and add items to dynamic arrays
- VBA – Loop through arrays
- Excel formula – Miscellaneous
- VBA – Delete all files in a folder
- VBA – Loop through sheets
- VBA – Define PageSetup (PaperSize, Orientation, etc.) and Print Excel Sheet