[Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

Bom dia a todos, primeiro quero pedir desculpa aos moderadores, se esta pergunta ja foi sanada, mas é uma pergunta muito específica e não achei no fórum, vamos lá
Tenho o seguinte código:
Ele faz conexão com sql para trazer uma consulta para exportar no excel, queria saber se há possibilidade, sem eu precisar usar outro código, de predefinir o nome do arquivo na exportação, deixar o nome da plan (Aba que fica aba no excel, plan1, plan2, etc) com o nome "Exportado"
Agradeço desde já a força

Código:

Dim SQL As String
Dim xlApp As Object
Dim xlWB As Object
Dim xlWS As Object
 
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets(1)

LJ = InputBox("Digite o nº da Loja")
MA = InputBox("Digite o MesAno Tudo Junto Exemplo: JUL2017")

SQL = ""
SQL = SQL & "SELECT  DTA_PGTO," & vbCrLf
SQL = SQL & "        DOCTO = '' ," & vbCrLf
SQL = SQL & "        HISTORICO = DESC_EVEN ," & vbCrLf
SQL = SQL & "                COMPLEMENTO = MES_ANO ," & vbCrLf
SQL = SQL & "                        DC = 'D' ," & vbCrLf
SQL = SQL & "                                SUM(VALOR) AS VALOR ," & vbCrLf
SQL = SQL & "                                        CODFORN = '' ," & vbCrLf
SQL = SQL & "        RIGHT(RTRIM(B.LJ_A),4) AS LOJA ," & vbCrLf
SQL = SQL & "        CLASSE = 'DESPESAS COM PESSOAL' ," & vbCrLf
SQL = SQL & "        SUBCLASSE = A.DESC_EVEN ," & vbCrLf
SQL = SQL & "        [TIP CTA] = '' ," & vbCrLf
SQL = SQL & "        [Conta Pag] = ''," & vbCrLf
SQL = SQL & "        [TIP CTA DESTINO]=''," & vbCrLf
SQL = SQL & "        [CONT DESTINO]=''" & vbCrLf
SQL = SQL & "FROM    HOLERITH AS A INNER JOIN LICENCIADAS..TBL_LICENCIADAS AS B ON" & vbCrLf
SQL = SQL & "A.CNPJ = B.CNPJ_ANTIGA COLLATE Latin1_General_CI_AS" & vbCrLf
SQL = SQL & "WHERE COD_EVEN NOT IN " & vbCrLf
SQL = SQL & "('0001','0004','0005','0012','0014','0015','0024','0025','0036','0037','0038','0039','0043','0047','0050','0052','0053','0055','0057','0061','0062','0082'," & vbCrLf
SQL = SQL & "'0096','0105','0110','0112','0157','0158','0161','0162','0167','0194','1030','1040','1114','1162','1169','1252','1382','1556','1608','1737','1806','1814','1843')" & vbCrLf
SQL = SQL & "AND B.LJ_A like '%" & LJ & "'" & vbCrLf
SQL = SQL & "AND A.MES_ANO='" & MA & "'" & vbCrLf
SQL = SQL & "GROUP BY B.LJ_A ," & vbCrLf
SQL = SQL & "        A.DESC_EVEN ," & vbCrLf
SQL = SQL & "        A.MES_ANO," & vbCrLf
SQL = SQL & "        DTA_PGTO" & vbCrLf

    Set RSELECT = FSELECT(CONC(), SQL)
    
'    On Error GoTo errorHandler
 xlApp.Visible = True
xlWS.Range("A1").Value = "Data"
xlWS.Range("B1").Value = "docto"
xlWS.Range("C1").Value = "Histórico"
xlWS.Range("D1").Value = "Complemento"
xlWS.Range("E1").Value = "C/D"
xlWS.Range("F1").Value = "Valor (+/-)"
xlWS.Range("G1").Value = "Cod.Forn"
xlWS.Range("H1").Value = "Loja"
xlWS.Range("I1").Value = "Classe"
xlWS.Range("J1").Value = "SubClasse"
xlWS.Range("K1").Value = "Tip Cta"
xlWS.Range("L1").Value = "Conta Pag"
xlWS.Range("M1").Value = "TIP CTA DESTINO"
xlWS.Range("N1").Value = "CONT DESTINO"

xlWS.Range("A2").CopyFromRecordset RSELECT

Set RS = Nothing
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
 
ExportToExcel = True

Set RST = Nothing
Exit Sub
 
errorHandler:
    Debug.Print Err.Description
    ExportToExcel = False

Experimente:
...
Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets(1)
xlWS .Name = "NomePlanilha"

...

Beleza!!! Renomeou a parte de baixo, mas faltou o nome do arquivo...

Nome do arquivo? Onde quer colocar o nome do arquivo? Quer colocar em qual célula?

Por exemplo, quando exportar, ja vim com o nome da planilha pronta pra salvar

Para salvar em um Local Fixo coloque:
...
xlWS.Range("A2").CopyFromRecordset RSELECT
xlWB.saveas FileName:="D:\NomePlanilha.xlsx", FileFormat:=51
...

Irá salvar um arquivo no disco D:\

Cuidado com a permissão de gravação... Se colocar no C:\ pode ter problemas com permissão do Windows, e nao conseguir gravar.

Agora foi, vlw!!!

Grato pelo retorno e até aproxima se Deus quiser!