Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() When running the code I am given the option to delete, I dont require this, many thks Sub reb() Dim wks As Worksheet Dim wkb As Workbook For Each wks In ThisWorkbook.Worksheets If wks.Name = "taz" Then wks.Delete End If Next End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=564422 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Application.DisplayAlerts = False
wks.Delete Application.DisplayAlerts = True But without a loop you can use this On Error Resume Next Application.DisplayAlerts = False Sheets("taz").Delete Application.DisplayAlerts = True On Error GoTo 0 -- Regards Ron de Bruin http://www.rondebruin.nl "T De Villiers" wrote in message news:T.De.Villiers.2bgqxv_1153767309.8944@excelfor um-nospam.com... When running the code I am given the option to delete, I dont require this, many thks Sub reb() Dim wks As Worksheet Dim wkb As Workbook For Each wks In ThisWorkbook.Worksheets If wks.Name = "taz" Then wks.Delete End If Next End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=564422 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Thanks Ron, works a treat -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=564422 |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi
Before Wks.delete add Application.DisplayAlerts = False then after add Application.DisplayAlerts = True Regards -- Tony Green "T De Villiers" wrote: When running the code I am given the option to delete, I dont require this, many thks Sub reb() Dim wks As Worksheet Dim wkb As Workbook For Each wks In ThisWorkbook.Worksheets If wks.Name = "taz" Then wks.Delete End If Next End Sub -- T De Villiers ------------------------------------------------------------------------ T De Villiers's Profile: http://www.excelforum.com/member.php...o&userid=26479 View this thread: http://www.excelforum.com/showthread...hreadid=564422 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Dont have secondary axis option listed in Series Option | Charts and Charting in Excel | |||
preserve formatting option in pivot table option dialog box | Excel Discussion (Misc queries) | |||
deletion of option buttons | Excel Worksheet Functions | |||
keep source formatting is not an option in paste option button | Excel Discussion (Misc queries) | |||
Option Commands (Option Explicit / Option Base etc) - Scope | Excel Programming |