Safely Deleting Worksheets Using the DeleteSheet Function : Worksheet « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Excel » Worksheet 
Safely Deleting Worksheets Using the DeleteSheet Function
 
Function DeleteSheet(ws As Worksheet, bQuiet As BooleanAs Boolean 
    Dim bDeleted As Boolean 

    On Error GoTo ErrHandler 

    bDeleted = False  

    If CountVisibleSheets(ws.ParentThen 
        If bQuiet Then Application.DisplayAlerts = False 

        bDeleted = ws.Parent.Worksheets(ws.Name).Delete 
    End If 

ExitPoint: 
    Application.DisplayAlerts = True 
    DeleteSheet = bDeleted 
    Exit Function 
ErrHandler: 
    bDeleted = False 
    Resume ExitPoint 
End Function 
Function CountVisibleSheets(wb As WorkbookAs Integer 
    Dim nSheetIndex As Integer 
    Dim nCount As Integer 
    nCount = 
    For nSheetIndex = To wb.Sheets.Count 
        If wb.Sheets(nSheetIndex).Visible = xlSheetVisible Then 
            nCount = nCount + 
        End If 
    Next 
    CountVisibleSheets = nCount 
End Function 

 
Related examples in the same category
1.Select Entire Sheet
2.Get Worksheets count in a Workbook
3.Get Worksheet name
4.changes the value of the Name property of the first worksheet in the first workbook of the Excel application:
5.Gives indexes of sheets
6.Inserts a new sheet after each sheet
7.Loop through all worksheets in workbook and reset values in a specific range on each sheet.
8.Group sheets together
9.Reference worksheet across worksheet
10.Determines if a given worksheet name exists in a workbook
11.Activate last sheet
12.Activate first sheet
13.Reference a worksheet from a workbook
14.Using a Function to Check for the Existence of a Code Name
15.Using the Parent Property to Obtain a Reference to an Object's Parent Object
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.