Have you tried activating the chartdata first?

Sh.Chart.ChartData.activate
Set wbk = Sh.Chart.ChartData.Workbook