Create a Excel Macro to delete Tabs and columns based on names of Tabs

[chrisbonational]

I need a macro that deletes all tabs not named "Address," "Phone Number," and "Birth Date" (there will are varying tab names depending on the report, so i want this macro to work regardless of how many and the names of the other tabs [if possible]. I would also like it if one of the above stated tabs is missing, to just skip it and keep going.)

Once that is done, I need to delete specific columns (varies depending on which of the 3 tabs we are looking at). Can someone help me out with this please?

 

[benpauley]

Hi

The following should delete any sheets not titled "Address", "Phone Number" or "Birth Date".

Sub DeleteSheets()


    Application.ScreenUpdating = False
    Application.DisplayAlerts = False


    For Each sht In ThisWorkbook.Worksheets
    
    If sht.Name <> "Address" And sht.Name <> "Phone Number" And sht.Name <> "Birth Date" Then sht.Delete
    
    Next sht
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True


End Sub

Can you provide some more information on which columns on which worksheets need to be deleted?

 

[chrisbonational]

I would like to delete the following:

Address
columns A:D & F:N

Phone Number
columns B:D & F:N

Birth Date
Columns B:N

 

[petertenthije]

Sub Delete_columns()


    Sheets("Address").Select
    Columns("F:N").Delete
    Columns("A:D").Delete


    Sheets("Phone number").Select
    Columns("F:N").Delete
    Columns("B:D").Delete


    Sheets("Birth date").Select
    Columns("B:N").Delete


End Sub

 

[chrisbonational]

Hey benpauley: Thanks for your response.

When running the code you gave me, it gave me an error, when i hit Debug, it had

"Then sht.Delete" highlighted. Is it because there is data on the other sheets as opposed to the other sheets being blank?

 

[benpauley]

Can you tell me what the error message said?

 

[chrisbonational]

It is okay, thank you Benpauley

I was able to figure it out using your macro mixed with another one i found online. It needed an If Error thing in there.