DAVE,

THANK YOU!!!!!!
--
thank you mac


"Dave Peterson" wrote:

Private Sub CheckBox2_Click()
application.displayalerts = false
Sheets("Education Analysis").Delete
Sheets("CostOver ").Delete
Sheets("Reclaim").Delete
application.displayalerts = true
End Sub

If those sheets may not be there, you may want:

Private Sub CheckBox2_Click()
on error resume next
application.displayalerts = false
Sheets("Education Analysis").Delete
Sheets("CostOver ").Delete
Sheets("Reclaim").Delete
application.displayalerts = true
on error goto 0
End Sub

mac wrote:

Helllo.

I have two problems with my check boxes.

I have created 3 checkboxes on the same worksheet. when I checkbox1 click I
want to delete certain worksheets. When I checkbox2 cliick I want to delete
other sheets. I have set up the macro, but when I click the box I get the
message "data may exist in the sheets selected for deletion. To
permanently delete the data press delete. Is there a way that I do not get
the message and it just deletes the sheets?
This is a part of my code:

Private Sub CheckBox2_Click()
Sheets("Education Analysis").Select
ActiveWindow.SelectedSheets.Delete
Sheets("CostOver ").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Reclaim").Select
ActiveWindow.SelectedSheets.Delete

My other problem is that I can check all three checkboxes at the same time.
If there any way that I can set it up to only let me check one box and
prevent from checking the other boxes.

Thanks in advance for any help givien.
--
thank you mac

--

Dave Peterson