irresistible
10-29-2006, 01:54 AM
I am not very much familar as how to use arguments... What i wanna do is to get this dialog box opened with:
- File name as blank so as user can type his own
- Saving Director as E:
- Default Save as Type: Webpage(*.htm, *.html) but without interactivity
What changes are required in my below Code:think: ?
Sub AddNew()
Dim iresponse As String
Set NewBook = Workbooks.Add
iresponse = MsgBox("Do you want to save the file now?", vbYesNo)
If iresponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show "E:\"
Else: End If
End Sub
- File name as blank so as user can type his own
- Saving Director as E:
- Default Save as Type: Webpage(*.htm, *.html) but without interactivity
What changes are required in my below Code:think: ?
Sub AddNew()
Dim iresponse As String
Set NewBook = Workbooks.Add
iresponse = MsgBox("Do you want to save the file now?", vbYesNo)
If iresponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show "E:\"
Else: End If
End Sub