Save As Dialog does not prompt for Web File Properties

[randy...@netropole.com]

I created some VBA code to Save an Excel workbook to a Sharepoint
Document Library.
When I use the file menu to save, after I click Save I am prompted to
enter values for the Web File Properties. Some of the properties are
custom and some are required.

The code below saves correctly but the Web File Properties dialog is
not displayed.

Thanks in advance!

Sub ShowSaveAsDialog()
Dim dlgSaveAs As FileDialog
Dim sPath As String

Set dlgSaveAs =
Application.FileDialog(FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.InitialFileName = "http://hd.netropole.com/kb/Expense
Reports/" & Application.ActiveWorkbook.Name

dlgSaveAs.InitialView = msoFileDialogViewWebView

If dlgSaveAs.Show = -1 Then
sPath = dlgSaveAs.InitialFileName
Application.ActiveWorkbook.SaveAs sPath
End If

End Sub