makro v excelu

Pozdravljeni

V excelu imam makro, ki mi shrani aktivni list iz aktivnega zvezka v tekstovni fail z imenom akrivnega lista in končnico TXT. Na kak nacin bi shranil ta list z imenom, ki je vpisano v celici A1. Naprimer če je v celici A1 vpisano "Sonce", bi se datoteka imenovala Sonce.TXT.

Sub a()

ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False

End Sub

Že vnaprej se vam zahvaljujem za pomoč

Zaenkrat hvala, bom probal

lp