[حل شده] delete کردن یک یا چند شیت بدون پرسش

[yamahdi13601982]

با سلام و خسته نباشید.لطفا بفرمائید چطوری میتونم توی وی بی دستوری بنویسم که وقتی اجرا شد بدون اینکه ازم بپرسه که میخوای دلیت کنی یا نه خودش دلیت کنه.با تشکر از همه ی اساتید محترم

[amir_ts]

با سلام
کد زیر تمام شیت ها به غیر از شیت master رو حذف میکند.

[LEFT]
Sub DeleteAllSheet()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> "master" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub
[/LEFT]