[gr8styl]

Καλημέρα σε όλους.

Αν το γράφημα είναι ξεχωριστό φύλλο και όχι αντικείμενο μέσα στο φύλλο δεδομένων, τότε απλά στον κώδικα

Κάνουμε αντικατάσταση του ActiveSheet.ChartObjects(1).Activate με Sheets("Charts1").Activate (1 αντικατάσταση)
όπου "Charts1" το όνομα του φύλλου του γραφήματος

και αντικατάσταση του ActiveSheet με Sheets("Color_xy_chart_points") (2 Αντικαταστάσεις)
όπου "Color_xy_chart_points" το όνομα του φύλλου με τα δεδομένα.

Τέλος διαγράφουμε το Range("C1").Select αν θέλουμε να τελειώσει ο κώδικας εμφανίζοντας το φύλλο του γραφήματος, ή αν θέλουμε να εμφανίσουμε το φύλλο δεδομένων προσθέτουμε Sheets("Color_xy_chart_points").Activate μετά την Next i

Τα λέμε.
Θανάσης

Σορρυ για τα κεφαλαία. Οπως είδες όμως τα είχα μόνο στον τίτλο....χα χα
Ευχαριστώ για τον χρόνο σου
Με κάλυψες απόλυτα
Φιλικά Δημήτρης

Ναι ναι τον τίτλο και τις ευχαριστίες.
Νάσαι καλά.