Macro der gemmer (ark) sheet med navn som indhold i celle

Måske dette spørgsmål kan bringe dig lidt videre.

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

Denne makro gør det, du ønsker.

Sub GemEtEnkeltArk()
    myfilename = Range("B3").Value
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\nyfil\" & myfilename & ".xls"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub

Jeg har selv i mellemtiden fundet frem til foelgende, der goer det samme:

Sub Savesheet()
'
' Saves sheet in C:\Reformat\ as what is in B3 .xls
'
ActiveWorkbook.SaveAs Filename:="C:\Reformat\" & Range("B3").Value & ".xls", FileFormat:=xlExcel4, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Men din gemmer stadig i Excel 4.0 format, mens min gemmer i det aktuelle format, fx XP eller 2000.

Tak for point, anyway :-)