JohnExcel222
New Member
- Joined
- Dec 19, 2018
- Messages
- 35
- Office Version
- 365
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
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