Guardar como

Tengo esta macro que pongo abajo para guardar como, pero cuando la
ejecuto se me abre la ventana de guardar como pero no me deja escoger
tipo de fichero (Yo necesitaría que fuese .xls) por ese motivo creo
que no me lo guarda. Alguien me podría dar una solución.

Sub GuardarComo()
Application.GetSaveAsFilename
End Sub