[devcon]

Καλησπέρα,

Θα ήθελα την βοήθεια σας ώστε να υπάρχει ένα μήνυμα πριν κλείσω το υπολογιστικό φύλλο να δώσω το όνομα στην επικεφαλίδα (header) και ακολούθως να αποθηκευθεί με το όνομα της επικεφαλίδας.

ActiveSheet.PageSetup.CenterHeader.Filename = _      “prompt to insert header name”

And then

ActiveWorkbook.SaveAs Filename:="C:\Users\Exon\Documents\AAA PDF Files" _
& "\" & ActiveCell.Value & ".xls", _
FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close

Σας ευχαριστώ.