bepaalde range opslaan als xlsx

[gober]

ik wil een bepaalde selectie opslaan als xlsx.
met activeworkbook werkt het wel maar niet met selection.cells

Range("A1:l22").Select
    
    
   ' Range("A1:l22").Copy
   Bestand = sPad & Range("A9").Value & "_" & Range("J4").Value & ".xlsx"
   ' With Selection.Cells
    With ActiveWorkbook
        .SaveAs Bestand, FileFormat:=51
        
    End With

 

[HSV]

Bv.

Sub hsv()
 Sheets.Add , Sheets(Sheets.Count)
with thisworkbook.Sheets("Blad1")
   .Range("A1:l22").Copy ActiveSheet.Range("A1")
 ActiveSheet.Move
 ActiveWorkbook.SaveAs [COLOR=#3E3E3E]sPad & .Range("A9").Value & "_" & .Range("J4").Value & ".xlsx"[/COLOR]
end with
End Sub

 

[gober]

bedankt voor de reacties. beide opties werken. Echter de kolom breedte wordt terug gezet naar standaard breedte. daardoor worden o.a. de datums niet meer goed weergegeven, maar weergegeven als #########

 

[HSV]

Dan zet je er een..

activesheet.columns.autofit

bij.
Of je test onderstaande code eens.

Sub hsv()
Workbooks.Add
With ThisWorkbook.Sheets("Blad1")
  .Range("A1:M40").Copy
  ActiveSheet.Range("a1").PasteSpecial xlPasteAll
  ActiveSheet.Range("a1").PasteSpecial xlPasteColumnWidths
  ActiveWorkbook.SaveAs  sPad & .Range("A9").Value & "_" & .Range("J4").Value & ".xlsx"
End With
End Sub

 

[gober]

bedankt voor de reacties. Het probleem is opgelost. had via google al meer dan een uur gezocht.