ironj32
05-16-2007, 07:21 AM
Hi All,
I want to create a msgBox that has an Input Text Box.
I have a button "cmdStartNewVendor". When you click the button I would like a msgBox to appear and ask you to insert the Vendor Name into "txtNewVendor". I am going to do a SaveCopyAs statement. Here is what i have so far. Thanks for your help!
Private Sub cmdStartNewVendor_click()
If MsgBox("Name of New Vendor", vbOKCancel + vbInformation, stTitle) = vbCancel Then
Cancel = True
Else
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Me.txtNewVendor & ".xls"
End Sub
I want to create a msgBox that has an Input Text Box.
I have a button "cmdStartNewVendor". When you click the button I would like a msgBox to appear and ask you to insert the Vendor Name into "txtNewVendor". I am going to do a SaveCopyAs statement. Here is what i have so far. Thanks for your help!
Private Sub cmdStartNewVendor_click()
If MsgBox("Name of New Vendor", vbOKCancel + vbInformation, stTitle) = vbCancel Then
Cancel = True
Else
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Me.txtNewVendor & ".xls"
End Sub