Аналогичной функции не нашел. Можно, например, макрос. Проверил, работает.
Цитата:
Sub SaveAsDialog()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = "FileName"
If .Show = 0 Then
Else
.Execute
End If
End With
Set fd = Nothing
End Sub