gem en fil med automatisk navngivning fra en bestemt celle i ark

http://www.eksperten.dk/spm/487110

eller

http://www.eksperten.dk/spm/692755

Har præsis de samme problemer og fejl som madsanthon. Altså den siger compile error Exspected sub, Function, or Property

Og jeg har bare brug for at det kommer til at dutte :-)

http://www.eksperten.dk/spm/492174

her fandt jeg dette.

Sub mingem()
    ChDir "c:\faktura"
    Filename = Sheets("Faktura").Range("e7") & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show Filename
End Sub

Denne virker hos mig.

Public Sub GemSom()
    fileTosave = Split(ActiveWorkbook.Name, ".")(0)
    Flt = "Excel mappe(*.xls),*.xls,"
    Titel = "Gem Som!"
    Filnavn = Application.GetSaveAsFilename(Sheets("Faktura").Range("e7") & ".xls")
    If Filnavn <> False Then
        ActiveWorkbook.SaveAs Filnavn
    End If
End Sub