Calling SQL Query with VBA Variable Function from Excel

I'm a bit of newbie when it comes to these things, so apologies if this is a stupid question.

I need to run an SQL query from a piece of VBA. The query is a little odd, because it contains a VBA variable in its function. Otherwise everything is pretty straight forward. The VBA should call the query and then insert it into a client excel document.

Every time I run the query within Access everything is fine, the function returns the correct value and filters down the columns. Every time I run it from VBA in Excel it says "Run-Time Error "3085": Undefined Function 'CutOff' in expression.

I've look for info and have found old sites saying that Access 2003 sometimes has an issue doing this sort of thing, but I'm running 2010 (I think). Just hoping the problem is solve-able and greatly appreciate any advice.

The query is as follows :

 SELECT [<TableName>].ID...*
    FROM [<TableName>]
    WHERE ((([<TableName>].ID)>CutOff()))
    ORDER BY [<TableName>]].ID;

Public Function Cutoff()
    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet
    Dim y As Long
    Set WB1 = Workbooks.Open("C:\filepath.z.xlsm")
    Set WS1 = WB1.Sheets("Sheet2")
    y = WS1.Range("A1").End(xlDown).Offset(0, 0).Value
    'Debug.Print y
    Cutoff = y
    'Debug.Print Cutoff
End Function 

The VBA that runs it is operated from Excel. I have tried the following:

Sub Export2()

    Dim db2 As Database
    Dim rs2 As DAO.Recordset, i As Long, sFormat As String
    Dim WB2 As Excel.Workbook, WS2 As Excel.Worksheet
    Set WB2 = Workbooks.Open("C:\FilePath.z.xlsm")
    Set WS2 = WB.Sheets("Sheet2")
    Set db2 = OpenDatabase("C:\FilePath.x.mdb")
    Set qd2 = db2.QueryDefs("ExportCount")
    Set rs2 = qd2.OpenRecordset()

        If rs2.EOF Then
            GoTo EndLoop
        End If

    WS2.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs2
    WS2.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit
EndLoop:


    Set WB = Nothing
    Set WS2 = Nothing
    Set db2 = Nothing
    Set qd2 = Nothing
    Set rs2 = Nothing

End Sub

EDIT:

Have also tried:

Sub SQLquery1()

    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet
    Dim wt As DAO.Database
    Dim we As DAO.Recordset
    Dim wd As DAO.QueryDef

    Set WB1 = Workbooks.Open("C:\x.xlsm")
    Set WS1 = WB1.Sheets("Sheet2")
    mySQLVariable = WS1.Range("A1").End(xlDown).Offset(0, 0).Value
    'Debug.Print mySQLVariable
    Set wt = OpenDatabase("C:\z.mdb")
    Set wd = wt.QueryDefs("ExportCount")
    Set we = wd.OpenRecordset("h")

    WS2.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset wd
    WS2.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit

    Set WB1 = Nothing
    Set WS1 = Nothing
    Set wt = Nothing
    Set we = Nothing
    Set wd = Nothing

End Sub

EDIT2

Sub CreateQueryDef()
    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet
    Dim dbPP As Database
    Dim qdfTemp As QueryDef
    Dim Counter As DAO.Recordset
    Dim mySQLVariable As String
    Dim rs5 As DAO.Recordset


    Set dbPP = OpenDatabase("C:\filepath\z.mdb")
    Set Counter = dbPP.OpenRecordset("j")
    Set WB1 = Workbooks.Open("C:\filepath\x.xlsm")
    Set WS1 = WB1.Sheets("Sheet2")
    mySQLVariable = WS1.Range("A1").End(xlDown).Offset(0, 0).Value
    'Debug.Print mySQLVariable

    With dbPP
        Set qdfTemp = dbPP.CreateQueryDef("NewQueryDef", "SELECT * FROM [j]")
        'WHERE ((j.[ID])=>(mySQLVariable)))") I can't get the syntax of these lines right - they are supposed to all be on the same line
        Set rs5 = qdfTemp.OpenRecordset() ' maybe Set rs5 = qdfTemp.OpenRecordset("NewQueryDef")?
    End With

        WS1.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs5
        WS1.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit
        dbPP.QueryDefs.Delete "NewQueryDef"

End Sub

Or

    Sub CreateQueryDef()
            Dim dbPP As Database
            Dim qdfTemp As QueryDef
            Dim Counter As DAO.Recordset
            Dim mySQLVariable As String
            Dim rs5 As DAO.Recordset


            Set dbPP = OpenDatabase("C:\filepath\z.mdb")
            Set Counter = dbPP.OpenRecordset("j")
            mySQLVariable = CutOff
            'Debug.Print mySQLVariable

            With dbPP
                Set qdfTemp = dbPP.CreateQueryDef("NewQueryDef", "SELECT * FROM [j] WHERE ((j.[ID])=>(mySQLVariable)))")
                Set rs5 = qdfTemp.OpenRecordset("NewQueryDef")
            End With

            WS1.Range("A1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs5
            WS1.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit
            dbPP.QueryDefs.Delete "NewQueryDef"

            dbPP.Close

            Set dbPP = Nothing
            Set qdfTemp = Nothing
            Set Counter = Nothing
            Set mySQLVariable = Nothing
            Set rs5 = Nothing
End Sub

Public Function Cutoff()
        Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet
        Dim y As Long
        Set WB1 = Workbooks.Open("C:\filepath.z.xlsm")
        Set WS1 = WB1.Sheets("Sheet2")
        y = WS1.Range("A1").End(xlDown).Offset(0, 0).Value
        'Debug.Print y
        Cutoff = y
        'Debug.Print Cutoff
End Function