Excel Mac 2016, ListObject не работает при вызове внутри функции VBA

Я вызываю данные из внешней базы данных в таблицу ListObject. Сценарий создает таблицу ListObject без проблем при запуске внутри Sub(), но сценарий просто останавливается в строке ListObject при вызове внутри функции, он сообщает Application-defined or object-defined error. Сценарий ниже:

Function get_value(input_id As String, input_date As String)

On Error GoTo xerr

Dim sqlstring As String
Dim connstring As String
Dim sLogin As String

sLogin = "DATABASE=DB;UID=UID;PWD=PWD"
sqlstring = "SELECT data_date, data_value FROM tb_data_values WHERE series_id='" & input_id & "' AND data_date<='" & input_date & _
                "' ORDER BY data_date DESC"
connstring = "ODBC;DSN=myodbc;" & sLogin

Dim qtTable As QueryTable

Set qtTable = Worksheets("hs").ListObjects.Add(SourceType:=xlSrcExternal, Source:=connstring, Destination:=Worksheets("hs").Range("A1")).QueryTable

With qtTable

    .ListObject.ShowHeaders = False
    .ListObject.ShowTableStyleRowStripes = False
    .ListObject.ShowTableStyleColumnStripes = False
    .ListObject.ShowTableStyleFirstColumn = False
    .CommandText = sqlstring
    .CommandType = xlCmdSql
    .RefreshStyle = xlOverwriteCells
    .BackgroundQuery = False
    .Refresh

End With

get_value=Worksheets("hs").ListObjects(1).Cells(1,2)

Exit Function

xerr:

Debug.Print err.Description

End Function