Code Run Time Error

[steveh1983]

Hi Guys,

Trying to run the below code but is falling over at wsh.Select F. The code seems to work in a different workbook I have (smaller file) but comes up with run time error now.

Code
Dim wsh As Worksheet
Dim f As Boolean
f = True
For Each wsh In Worksheets
Select Case wsh.Name
' List the exceptions here
Case "Contract Extract", "Tree", "Total Region", "Start", "BOB", "ESA", "ESB", "LNA", "LNB", "LNC", "LND", "LNG", "LNH", _
"LNN", "LNO", "LNP", "LNQ", "LNR", "LNS", "LNT", "LNV", "LNW", "LNX", "LNY", "LNZ", "RAA", _
"SHA", "SHB", "SKA", "SKB", "SKC", "SKD", "SKO", "End"
' Skip these
Case Else
wsh.Select f
f = False
End Select
Next wsh

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

 

[Norie]

What's the error message?

 

[steveh1983]

it comes up with below

run time error 1004 method select of object _worksheet failed

 

[Norie]

What are you trying to do with the code?

 

[steveh1983]

What are you trying to do with the code?

The code is meant to select certain tabs and then delete the rest

 

[Norie]

Why not just delete the worksheets as you loop?

Case Else
    Application.DisplayAlerts = False
    wsh.Delete
    Application.DisplayAlerts = True
End Select

 

[steveh1983]

Why not just delete the worksheets as you loop?

Case Else
    Application.DisplayAlerts = False
    wsh.Delete
    Application.DisplayAlerts = True
End Select

Thanks - will try this when back in the office