VBA msgbox表删除userform选项

Question

我想删除工作簿中的所有工作表（Sheet1到Sheet6）。我所做的是，我使用了userform，点击“删除数据”按钮，我想删除所提到的表格上的所有数据。我的代码到目前为止..

Private Sub CommandButton4_Click()
Unload Me
Dim ws As Worksheets
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each ws In Worksheets
If MsgBox("This command will delete all data?", vbYesNo) = vbNo Then UserForm1.Show Else ws.Delete
End If
Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
UserForm1.Show
End Sub

这个不起作用。我是VBA的新手，这个循环对我来说太复杂了。任何想法我怎么能这样做？感谢

Answer 1

就像

For Each ws In ActiveWorkbook.Sheets
    ws.UsedRange.ClearContents
Next