Worksheet saven als Tab naam

[Tom1978]

Heyla jongens,

Weet iemand hoe ik automatisch mijn workbook kan saven met de dezelfdenaam die ik geef aan sheet1.

Dus als ik sheet 1 hernoem naar bv NDI_2800 zou dit ook gesaved moeten worden als NDI_2800.txt (tab delimited) en NDI_2800.xls

Thx. Tom

 

[Karel 2]

Hoi Tom,

Onderstaande code slaat het document op in de map waaruit het is geopend, onder de naam van het eerste tabblad.

Groet Karel

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Sheets(1).Name & ".xls"