Delete Data Button

[Marcus]

I am trying to create a button that when you click it it will delete all data
in a workbook. Anyone have any ideas???

[arthurjr07@gmail.com]

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim r As Range
For Each ws In Worksheets
ws.Activate
For Each r In ws.UsedRange
MsgBox r
Next r
Next
End Sub

[Marcus]

So do I need to create a command button?

"arthurjr07@gmail.com" wrote:

> Private Sub CommandButton1_Click()
> Dim ws As Worksheet
> Dim r As Range
> For Each ws In Worksheets
> ws.Activate
> For Each r In ws.UsedRange
> MsgBox r
> Next r
> Next
> End Sub
>
>

[arthurjr07@gmail.com]

Go to TOOLS>MACRO>Visual Basic Editor

then Right Click on VBAProjects on the project window then Insert >
UserForm

On the user form, insert a commandbutton
copy and paste the code and then run

I hope u understand what i am trying to say