Gemme et sheet fra en workbook i en ny fil (Excel 2007)

Lave en funktion.......uden makroer og VBA moduler...???

En funktion er makro/VBA.

Hvordan havde du tænkt dig, at det skulle foregå?

Det har nok ikke udtrykt klart nok kan jeg godt se nu :-)

Det jeg mener er:
Det er vigtigt at makroer/VBA kode fra orginalarket ikke kopieres med over i den gemte kopi.

Jeg har en masse kode til at styre sortering af kunder, læsning og skrivning af .INI fil, udskrift af bestemte områder m.m. og det må ikke komme med over i kopien da det kan medføre ændringer.
Jeg har med andre ord brug for at det bliver en 'dum' kopi der bliver gemt.

Hvis du ikke har kodemodul i arket, så kan du gøre sådan her:

Sub Makro1()
    Sheets("Ark1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\data\test1.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
ActiveWorkbook.close
End Sub

Jeg endte op med en hel anden løsning hvor jeg bruger M$' egen SaveAsPdfXps plugin
Og så denne stump kode
ThisWorkbook.Sheets(conSheetInvoice).Range(conPrintRangeInvoice).ExportAsFixedFormat(0, strFilename)