Consulting

Results 1 to 3 of 3

Thread: Delete worksheets with blank cell

  1. #1
    VBAX Contributor
    Joined
    Oct 2013
    Posts
    154
    Location

    Delete worksheets with blank cell

    I have a file with multiple worksheet and I need a code that will delete only worksheet that cell C2 is blank/empty. In addition, the code will not delete constant worksheets named "Master", "Table of Contents", "Lookup", "Lookup Names", or "Names"

    Thank you for any and all help

  2. #2
    VBAX Sage
    Joined
    Apr 2007
    Posts
    8,040
    Location
    Not tested, but probably something like this


    Option Explicit
    
    
    'I have a file with multiple worksheet and I need a code that will delete only worksheets
    'that have cell C2 is blank/empty. In addition, the code will not delete constant worksheets
    'named "Master", "Table of Contents", "Lookup", "Lookup Names", or "Names"
    
    
    
    
    Sub DeleteSomeWorksheets()
        Dim ws As Worksheet
        
        For Each ws In ActiveWorkbook.Worksheets
            Select Case ws.Name
                Case "Master", "Table of Contents", "Lookup", "Lookup Names", "Names"
                Case Else
                    If Len(ws.Range("C2").Value) = 0 Then
                        Application.DisplayAlerts = False
                        ws.Delete
                        Application.DisplayAlerts = True
                    End If
            End Select
                        
        Next
    End Sub
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  3. #3
    VBAX Contributor
    Joined
    Oct 2013
    Posts
    154
    Location
    Works Perfect,

    Thank you so much!
    Last edited by oam; 10-18-2021 at 01:12 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •