Suddenly this code fails most of the time at the statement With .chart.Shapes(1) because there are no Shapes in the Chart Object!
Does anyone know why pasting the Chart would sometimes not result in a Shape?
Public Sub saveOrgChart(title As String)
Dim shp As Shape, sht As Worksheet...