Delete all sheet except "Dashboard" sheet

[gleamng]

Good day everyone, sure you are all well.

Please kindly help me with this edited code, i got Run-time error 1004 - method delete of object _worksheet failed which highlight xWs.Delete

Sub DeleteSheets()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Worksheets
        If xWs.Name <> "Dashboard" Then
            xWs.Delete
        End If
    Next xWs
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[Georgiboy]

Is the workbook protected?

Is the sheet you want to save called 'Dashboard' 100% with no trailing spaces etc...?

 

[James006]

Hi,

You can test following

Sub DeleteSheets()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Worksheets
         Select Case xWs.Name
            Case Is <> "DashBoard"
                xWs.Delete
         End Select
    Next xWs
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[gleamng]

Is the workbook protected?

Is the sheet you want to save called 'Dashboard' 100% with no trailing spaces etc...?

Thanks for your response.
The workbook is password protected which I've unprotect with this code (thisworkbook.unprotect password:="Gb1234")
And also the sheet to save is Dashboard without any space

 

[gleamng]

Hi,

You can test following

Sub DeleteSheets()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Worksheets
         Select Case xWs.Name
            Case Is <> "DashBoard"
                xWs.Delete
         End Select
    Next xWs
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Thanks for your quick response.
I've tried the code change but i have the same error, meanwhile i use same code on another workbook and it worked. I don't know what is wrong with the major workbook i want it applies

 

[Georgiboy]

Can you delete the sheet manually at the point you would run the code?

I am asking as the only way I get the same error is if the workbook is protected.

 

[Georgiboy]

Also do you have any instances of 'On Error Resume Next' in your actual code?