Ændring til gem som makro

Jeg har følgende makro, men vil nu gerne have den ændret så den vælger makro enabled som filtype.

'Gem filen som .csv
        Dim fn As String
        fn = Application.GetSaveAsFilename(fileFilter:="CSV File(*.csv), *.csv")
        If fn <> "False" Then
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs fn, xlCSV
        Application.DisplayAlerts = True
        End If

Er der en venlig sjæl, der lige kan fortælle mig hvordan den ændres? Det er bare filformat osv der skal ændres.