удаление листов в книге

[evdss]

помогите с макросом
есть книга надо удалить из книги листы с 200 по 300

[EducatedFool]

Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 1 To 100
        Worksheets(200).Delete
    Next
    Application.DisplayAlerts = True
End Sub

[shanemac51]

удаление листов не игрушка

Sub m101228_1124()    ''удаление с хвоста
Dim j
Dim ws As Worksheet
j = Excel.ActiveWorkbook.Worksheets.Count
Do While j > 200
Debug.Print j, Excel.ActiveWorkbook.Sheets(j).Name
    Excel.ActiveWorkbook.Sheets(j).Delete
j = j - 1
Loop
End Sub

я бы сначала получила список листов в столбец1, в столбце2 сделала явную пометку, а затем удаляла согласно пометке

Sub m101228_1124a()   ''список листов в лист 1
Dim j1, j2
Dim ws As Worksheet
j2 = Excel.ActiveWorkbook.Worksheets.Count
j1 = 0
Do While j1 < j2
j1 = j1 + 1
Excel.ActiveWorkbook.Worksheets(1).Cells(j1, 1) = Excel.ActiveWorkbook.Sheets(j1).Name
Loop
End Sub

[evdss]

спасибо всем отлично работает