Fin pudsning af makro

Hejsa

Jeg har skrevet følgende lille makro (er ikke nogen haj - så det er stort for mig ;o) )

Men den vil kun gemme som all files - og jeg vil jo gerne have at den gemmer som .xls - hvordan gør jeg det

Makroen kommer her

Sub save_a_part_of_sheet()
'
' save_a_part_of_sheet Macro
' Macro recorded 14-05-2008 by Ida Sine Harboe Nielsen
'

'
    Selection.Copy
    Set Newbook = Workbooks.Add
    Do
    ActiveSheet.Paste
    fName = Application.GetSaveAsFilename
    Loop Until fName <> False
    Newbook.SaveAs Filename:=fName
    Newbook.Close
     
End Sub

Hilsen
Ida