ik wil een bepaalde selectie opslaan als xlsx.
met activeworkbook werkt het wel maar niet met selection.cells
met activeworkbook werkt het wel maar niet met selection.cells
Code:
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