Utilise un autre graphique comme ceci
Charts("Chart 18").Visible = True
Charts("Chart 18").Activate
Charts("Chart 18").Visible = False