Have you tried activating the chartdata first? Sh.Chart.ChartData.activate Set wbk = Sh.Chart.ChartData.Workbook
Sh.Chart.ChartData.activate Set wbk = Sh.Chart.ChartData.Workbook
Cheers Andy
Forum Rules