Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform delete sheet
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 -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Centering A Userform On The Sheet | New Users to Excel | |||
userform freezes sheet | Excel Discussion (Misc queries) | |||
UserForm and combo box to another sheet | Excel Discussion (Misc queries) | |||
Selecting sheet after Userform | Excel Programming | |||
Delete userform/module using VB | Excel Programming |