Hoi,
Klein vraagje

ik gebruik dit om de tabblad als CVs op te slaan

Sub Papier2()
  ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\" & "Papier 2.csv", 6
    .Close -1
  End With
End Sub

is het misschien ook mogelijk na het opslaan van de CSV dat A1 tot AH1 de regels tekst blijven staan
en de andere cellen leeg worden gemaakt?

A2 tot AH1900 leeg

Alvast weer bedankt

@SoftAid

Werkt perfect
heb wel even de . er tussen uitgehaald

ActiveSheet.Range("A2:AH1900").Delete

anders blijft die om een object vragen

THNX