Compile Error: Argument not Optional (1 Viewer)

Public Function SendTQ2ExcelSheet(strTQName As String, strSheetName As String, strFilePath As String)
' strTQName is the name of the table or query you want to send to Excel
' strSheetName is the name of the sheet you want to send it to



    Dim rst As DAO.Recordset
    Dim ApXL As Object
    Dim xlWBk As Object
    Dim xlWSh As Object
    Dim fld As Field

    Dim strPath As String


    Const xlCenter As Long = -4108
    Const xlBottom As Long = -4107

    On Error GoTo err_handler



    strPath = strFilePath

    Set rst = CurrentDb.OpenRecordset(strTQName)

    Set ApXL = CreateObject("Excel.Application")


    Set xlWBk = ApXL.Workbooks.Open(strPath)
    ApXL.Visible = True

    Set xlWSh = xlWBk.Worksheets(strSheetName)


    xlWSh.Range("A1").Select


    For Each fld In rst.Fields
        ApXL.ActiveCell = fld.Name
        ApXL.ActiveCell.Offset(0, 1).Select
    Next

    rst.MoveFirst
    xlWSh.Range("A2").CopyFromRecordset rst
    xlWSh.Range("1:1").Select
    ' This is included to show some of what you can do about formatting.  You can comment out or delete
    ' any of this that you don't want to use in your own export.
    With ApXL.Selection.Font
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
    End With
    ApXL.Selection.Font.Bold = True
    With ApXL.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    ' selects all of the cells
    ApXL.ActiveSheet.Cells.Select
    ' does the "autofit" for all columns
    ApXL.ActiveSheet.Cells.EntireColumn.AutoFit
    ' selects the first cell to unselect all cells
    xlWSh.Range("A1").Select

    rst.Close
    Set rst = Nothing

    Exit Function
err_handler:
    DoCmd.SetWarnings True
    MsgBox Err.Description, vbExclamation, Err.Number
    Exit Function

End Function

Call SendTQ2ExcelSheet("qryReport_All", "RawData", "\\ushosfps01\Corporate QD\QD Only\QD Associates\Chance\VPReportTest.xlsm")

PARAMETERS [Forms]![VPReport].[txtStartDate].[Value] DateTime, [Forms]![VPReport].[txtEndDate].[Value] DateTime;
TRANSFORM 100-((Sum([Answer])/Count(*)*-1*10000)/100) AS PR
SELECT qryCallCount.tblLocation.Description AS Location, qryCallCount.ManagerName, qryCallCount.SupervisorName, qryCallCount.EmployeeName, qryCallCount.tblCallType.Description AS CallType, qryCallCount.Calls
FROM (tblAssociate INNER JOIN (qryCallCount INNER JOIN tblCoaching ON qryCallCount.EmployeeID = tblCoaching.EmployeeID) ON tblAssociate.AssociateID = qryCallCount.EmployeeID) INNER JOIN (tblQuestion INNER JOIN tblQuestionAnswers ON tblQuestion.QuestionID = tblQuestionAnswers.QuestionID) ON tblCoaching.CoachingID = tblQuestionAnswers.CoachingID
WHERE (((tblCoaching.DateGraded) Between [Forms]![VPReport].[txtStartDate].[Value] And [Forms]![VPReport].[txtEndDate].[Value]))
GROUP BY qryCallCount.tblLocation.Description, qryCallCount.ManagerName, qryCallCount.SupervisorName, qryCallCount.EmployeeName, qryCallCount.tblCallType.Description, qryCallCount.Calls
ORDER BY qryCallCount.tblLocation.Description, qryCallCount.ManagerName, qryCallCount.SupervisorName
PIVOT tblQuestion.QuestionID;