Below is a piece of VBA codes trying to create a workbooks and fetch the data from Oracle to Excel worksheet. I did get the data into the buffer but I could not show it on the designated worksheet of the new workbook. It returns the following error when I run it. Can anybody help? Thanks.

Run-time error'-2147024809 (80070057)
The destination range is not on the same worksheet that the Query table is being created on.

Sub CreateQryTab()

Dim sUID, sPWD, sDBQ As String
Dim sConn, sSQL As String
Dim oQT As QueryTable

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet

Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets(1)

sUID = "CLP"
sPWD = "ABC"
sDBQ = "CLPTST"

sConn = "ODBC;DSN=CLPTST;UID=" & sUID & ";PWD=" & sPWD & ";DBQ=" & sDBQ
sConn = sConn & ";DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T"
sConn = sConn & ";RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=0; "
sSQL = "SELECT CLP_PLP.PLP_PLST_CD, CLP_PLP_COLR.PLPC_CLST_CD, CLP_PLP.PLP_SESN_CD, "
sSQL = sSQL & "CLP_PLP.PLP_SESN_YR_RNG, CLP_PLP.PLP_CTRY_CD, "
sSQL = sSQL & "sf_get_msc_cd(plp_msc_id) MSC_CD, plp_sty_nbr, plp_exp_nbr, plpc_colr_cd, "
sSQL = sSQL & "sf_get_l4l_colr_desc(plp_id,plp_sesn_cd,plp_sesn_yr_rng,plp_exp_nbr,plpc_colr_cd) COLR_DESC, fccu_xref_cd "
sSQL = sSQL & "FROM CLP.CLP_PLP CLP_PLP, CLP.CLP_PLP_COLR CLP_PLP_COLR, FCS.TAB_FCS_CTRY_CUST TAB_FCS_CTRY_CUST "
sSQL = sSQL & "WHERE CLP_PLP.PLP_ID = CLP_PLP_COLR.PLPC_PLP_ID "
sSQL = sSQL & "AND CLP_PLP.PLP_CTRY_CD = TAB_FCS_CTRY_CUST.FCCU_CTRY_CD "
sSQL = sSQL & "AND CLP_PLP.PLP_SESN_CD = TAB_FCS_CTRY_CUST.FCCU_SESN_CD "
sSQL = sSQL & "AND to_char(CLP_PLP.PLP_SESN_YR_RNG) = TAB_FCS_CTRY_CUST.FCCU_SESN_YR_RNG "
sSQL = sSQL & "AND CLP_PLP.PLP_PLST_CD in ('3','5','7') "
sSQL = sSQL & "AND CLP_PLP.PLP_CTRY_CD = 'INDI' "
sSQL = sSQL & "AND CLP_PLP.PLP_SESN_CD||substr(to_char(CLP_PLP.PLP_SESN_YR_RNG),3,2) = 'SU05' "

Set oQT = xlWS.QueryTables.Add(Connection:=sConn, Destination:=Range("A1"), Sql:=sSQL)
oQT.Refresh

End Sub