D
dok112
When using my userform, I want it to delete a page from the book in th
end. I have the code for deleting it, but it pops up that dialogue bo
asking me to delete it again. How do I write into the macro to confir
the deletion?
Private Sub CommandButton1_Click()
MsgBox "Your Submission is being recorded and printed"
MsgBox "Please make sure you place a copy in the Representativ
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 Su
end. I have the code for deleting it, but it pops up that dialogue bo
asking me to delete it again. How do I write into the macro to confir
the deletion?
Private Sub CommandButton1_Click()
MsgBox "Your Submission is being recorded and printed"
MsgBox "Please make sure you place a copy in the Representativ
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 Su