Charts overlapping datatable on spreadsheet.

I'm now having a problem where the graphs on a spreadsheet are now overlapping the datatable.  I'm creating the spreadsheet from within access using vba.  I thought the following code was working fine but now I see that it really wasn't.  I'm trying to offset the top parameter of each chart so they line up below the used range of the datatable.

Sub LineUpMyCharts(objWS As Object)
    ' Comments:
    ' Params  : objWS
    ' Modified:
    
    On Error GoTo PROC_ERR
    
    Dim objXlSheet As Object
    Dim objChart As Object
    Dim sngMyHeight As Single
    Dim sngMywidth As Single
    Dim lngChartCount As Long
    Dim lngChartIndex As Long
    
    sngMywidth = 750
    sngMyHeight = 300
    
    Set objXlSheet = objWS
    
    lngChartCount = objWS.ChartObjects.Count
    
    For lngChartIndex = 1 To lngChartCount
        Set objChart = objXlSheet.ChartObjects(lngChartIndex)
        With objChart
            .Top = objXlSheet.UsedRange.Rows.Count + ((sngMyHeight + 50) * lngChartIndex)
        End With
    Next
    
PROC_EXIT:
    Exit Sub
    
PROC_ERR:
    MsgBox Err.Number & vbTab & Err.Description, vbCritical, Me.Name & ".LineUpMyCharts"
    Resume PROC_EXIT
    
End Sub

Select all Open in new window