application.DisplayAlerts = False
SHEETS(\"T2S\").SELECT
ACTIVEWINDOW.SELECTEDSHEETS.DELETE
Application.DisplayAlerts = True

--
Regards,
Tom Ogilvy

"dok112 " wrote in message
...
When using my userform, I want it to delete a page from the book in the
end. I have the code for deleting it, but it pops up that dialogue box
asking me to delete it again. How do I write into the macro to confirm
the deletion?

Private Sub CommandButton1_Click()
MsgBox "Your Submission is being recorded and printed"
MsgBox "Please make sure you place a copy in the Representative
Perfect Folder"
Dim ctrl As Control
Dim chkbx As MSForms.CheckBox
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
Set chkbx = ctrl
If chkbx Then
Worksheets(chkbx.Caption).PrintOut
End If
End If
Next
SHEETS(\"T2S\").SELECT
ACTIVEWINDOW.SELECTEDSHEETS.DELETE

newFolder$ = "C:\Documents and Settings\Administrator\Desktop\" &
TextBox1.Text
MkDir newFolder$
NewFile$ = newFolder$ & "\" & TextBox2.Text & ".xls"
ThisWorkbook.SaveAs NewFile$
Unload Me
End Sub


---
Message posted from http://www.ExcelForum.com/