msoFileDialogSaveAs (Nuevamente)

Mi codigo es el siguiente:

With Application.FileDialog(msoFileDialogSaveAs)
.Show
DestFile = .SelectedItems(1)

End With

Esto funciona correctamente.
Cuando le agrego este filtro me da error:

With Application.FileDialog(msoFileDialogSaveAs)
.Filters.Add "Archivos mp", "*.mp", 1
.Show

DestFile = .SelectedItems(1)

End With

Es propio de SaveAs? No puedo filtrar en SaveAs? En Open funciona
correctamente... q es lo q tengo mal????

Gracias y Saludos

Daniel