Help to delete multiple sheets

[mohan08]

Hi All,

Help required to create macro to delete all sheets excepts on the one sheet which is mentioned via input box. I have tried with the below macro but getting the error message "Run-Time error '438"

Sub retain()
Dim todelete As Worksheet
Dim Filetodelete As String
Filetodelete = InputBox("Enter file name")

For Each todelete In Application.ActiveWorkbook.Worksheets
If todelete <> "filetodelete.value" Then
todelete.Delete
End If
Next
End Sub

 

[YasserKhalil]

Hello Mohan
Try this code

Sub Retain()
    Dim todelete        As Worksheet
    Dim filetodelete    As String

    filetodelete = InputBox("Enter Worksheet Name")

    Application.DisplayAlerts = False
        For Each todelete In Application.ActiveWorkbook.Worksheets
            If todelete.Name <> filetodelete Then
                todelete.Delete
            End If
        Next todelete
    Application.DisplayAlerts = True
End Sub

 

[mohan08]

Thanks a ton Yasser, Can you please help me with combining the below code for unhiding all the worksheet and delete the sheets.

Sub UnhideAllSheets()

'Unhide all sheets in workbook.

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

 

[YasserKhalil]

Do you mean like that

Sub Retain()
    Dim todelete        As Worksheet
    Dim filetodelete    As String

    filetodelete = InputBox("Enter Worksheet Name")

    Application.DisplayAlerts = False
        For Each todelete In Application.ActiveWorkbook.Worksheets
            todelete.Visible = xlSheetVisible
            If todelete.Name <> filetodelete Then
                todelete.Delete
            End If
        Next todelete
    Application.DisplayAlerts = True
End Sub

 

[mohan08]

Thanks as lot Yasser

 

[YasserKhalil]

You're welcome. Glad I can offer some help