| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Selected Worksheets Macro
I have a workbook with 500 tabs. 200 of the tabs are named: FI (1), FI (2),
FI (3), etc. I want to delete all tabs that start with FI. I've tried the below without success - any suggestions? Here's what I have: Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If ws.Name = "FI (*)" Then ws.Delete Next Application.DisplayAlerts = True |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete Selected Worksheets Macro
Sub FI_killer()
Application.DisplayAlerts = False For Each w In Worksheets If Left(w.Name, 2) = "FI" Then w.Delete End If Next Application.DisplayAlerts = True End Sub -- Gary''s Student - gsnu200822 "Indianagreg" wrote: I have a workbook with 500 tabs. 200 of the tabs are named: FI (1), FI (2), FI (3), etc. I want to delete all tabs that start with FI. I've tried the below without success - any suggestions? Here's what I have: Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If ws.Name = "FI (*)" Then ws.Delete Next Application.DisplayAlerts = True |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete Selected Worksheets Macro
Perfect! Thank you and Happy New Year
"Gary''s Student" wrote: Sub FI_killer() Application.DisplayAlerts = False For Each w In Worksheets If Left(w.Name, 2) = "FI" Then w.Delete End If Next Application.DisplayAlerts = True End Sub -- Gary''s Student - gsnu200822 "Indianagreg" wrote: I have a workbook with 500 tabs. 200 of the tabs are named: FI (1), FI (2), FI (3), etc. I want to delete all tabs that start with FI. I've tried the below without success - any suggestions? Here's what I have: Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If ws.Name = "FI (*)" Then ws.Delete Next Application.DisplayAlerts = True |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete Selected Worksheets Macro
You too!
-- Gary''s Student - gsnu200822 "Indianagreg" wrote: Perfect! Thank you and Happy New Year "Gary''s Student" wrote: Sub FI_killer() Application.DisplayAlerts = False For Each w In Worksheets If Left(w.Name, 2) = "FI" Then w.Delete End If Next Application.DisplayAlerts = True End Sub -- Gary''s Student - gsnu200822 "Indianagreg" wrote: I have a workbook with 500 tabs. 200 of the tabs are named: FI (1), FI (2), FI (3), etc. I want to delete all tabs that start with FI. I've tried the below without success - any suggestions? Here's what I have: Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If ws.Name = "FI (*)" Then ws.Delete Next Application.DisplayAlerts = True |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete selected worksheets | Excel Programming | |||
| Looping through selected worksheets and delete a range (e.g., A2:D15) | Excel Programming | |||
| Delete rows at the same time from selected worksheets | Excel Programming | |||
| trying to delete selected range with macro | Excel Programming | |||
| Need a macro to delete selected rows | Excel Programming | |||
Linear Mode
