kopi af ark og gem i ny fil

Jeg har selv løst den med denne her - ved ikke om det er korrekt kodet - men det virker:-)

Public Sub Gemside()

Dim filnavn As String
Dim mappe As String

mappe = "c:\" ' ændres til ønsket placering på drev
filnavn = InputBox("Gem regneark som:", "Gem", Range("b2"))

Sheets("ark1").Copy 'ændres til dit ark navn
        Range("A1:m48").Select 'ændres til din markering
        Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False



ActiveWorkbook.SaveAs Filename:=mappe & filnavn
ActiveWorkbook.Close


End Sub

mvh
Kvisten