[bill72]

Αγαπητέ Γιώργο είναι υπέροχο ,προσπαθώ να το μεταφέρω στο πραγματικό δικό μου φύλλο εργασίας όμως μου βγάζει σφάλμα σε μια γραμμή κώδικα dt = one.Range(strDate),παρατηρώντας βλέπω ότι η ημερομηνία στο δικό μου φύλλο και από λάθος μου δεν την άλλαξα είναι στο κελί G1 αλλάζω λοιπών αντοίστιχα σε Const strDate As String = "G1" αλλά πάλι τίποτα .Τι δεν κάνω σωστά;