basic loop won't work: what am I missing ?

[JohnExcel222]

basic loop won't work: what am I missing ?

Sub xx1()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws <> Worksheets(1) Then
ws.Delete
End If
Next ws
End Sub

 

[Joe4]

Try this:

Sub xx1()

    Dim ws As Worksheet

    Application.DisplayAlerts = False
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> Worksheets(1).Name Then ws.Delete
    Next ws
    
    Application.DisplayAlerts = True
    
End Sub

 

[igold]

How about this...

Sub xx1()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
    If ws.Index <> 1 Then
        ws.Delete
    End If
    Next ws
End Sub

 

[JohnExcel222]

thanks, both work.

 

[igold]

Glad they work. We were both happy to help.