Function FindRogue()
Dim rpt As Report
Dim ctl As Control
Dim strDoc As String

strDoc = "04 - Backlog Report - Valley"
DoCmd.OpenReport (strDoc), acViewDesign
Set rpt = Reports(strDoc)

For Each ctl In rpt.Controls
If ctl.Width > 6.5 * 1440 Then
Debug.Print ctl.Name,

TRANSFORM Sum(Backlog.Volume) AS SumOfVolume   
SELECT Backlog.SupplyingCompanyID, Sum(Backlog.Volume) AS [Total Of Volume]   
FROM Backlog
WHERE Year([MonthEnding]) = Year(Date())

TRANSFORM Sum(Backlog.Volume) AS SumOfVolume  
SELECT Backlog.SupplyingCompanyID, Sum(Backlog.Volume) AS [Total Of Volume]  
FROM Backlog  
GROUP BY Backlog.SupplyingCompanyID  
PIVOT Format([MonthEnding],"mmm 'yy") In ("Jan '11", "Feb '11","Mar '11","Apr '11","May '11","Jun '11","Jul

TRANSFORM Sum(Backlog.Volume) AS SumOfVolume 
SELECT Backlog.SupplyingCompanyID, Sum(Backlog.Volume) AS [Total Of Volume] 
FROM Backlog 
GROUP BY Backlog.SupplyingCompanyID 
PIVOT Format([MonthEnding],"mmm

TRANSFORM Sum(Backlog.Volume) AS SumOfVolume
SELECT Backlog.SupplyingCompanyID, Sum(Backlog.Volume) AS [Total Of Volume]

Me.grphBacklog.RowSource = "SELECT (Format([MonthEnding],""MMM 'YY"")) AS Expr1, Sum(Backlog.Volume) AS SumOfVolume " & _
                        "FROM Backlog " & _
                        "WHERE (Backlog.MonthEnding) BETWEEN #"

DoCmd.OutputTo acOutputReport, "qryBackLogWithActuals", acFormatXLS, "TEST_1.xls", True

Private Const conAppNotRunning As Long = 429 

...

Private Sub cmdRunXL_Click() 
On Error GoTo Err_cmdRunXL_Click
    Dim objExcel As Excel.Application 
  
    On Error Resume Next 
        Set objExcel = GetObject(, "Excel.Application")

Private Sub cmdRunXL_Click()
On Error GoTo Err_cmdRunXL_Click
    Dim XL As Excel.Application
    
    DoCmd.OutputTo acOutputReport, "qryBackLogWithActuals",