Mesclar celular do excel direto do Access

Pessoal

Boa Tarde!

Peguei um código aonde gero excel direto do access e estou tentando formatar direto do access. porém parei numa parte aonde consigo mesclar as celulas mais está dando erro de código " objSheet.Range("A1:k3").Merge = False"

Código =  objSheet.Range("A1:k3").Merge = False" - Msg "Objeto não aceito está propriedade ou método", alguém pode me ajudar? segue o código

Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
Dim strLocalArquivo$
'Informa o caminho e nome para a nova planilha excel

strLocalArquivo = "C:\Users\roberto.moreira\Desktop\Reversão\" & "Ctas a Receber" & ".xls"

'Abre o relatório oculto
DoCmd.OpenReport "Rel_Excel", acViewPreview, , , acHidden
'Gera a planilha do relatório, através do comando OutputTo.
DoCmd.OutputTo acOutputReport, "Rel_Excel", acFormatXLS, strLocalArquivo
'Fecha o relatório que está oculto
DoCmd.Close acReport, "Rel_Excel"
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo excel visível
xlApp.Application.Visible = True
'Abre o arquivo PlanilhaTeste.xls
Set wkb = xlApp.workbooks.Open("C:\Users\roberto.moreira\Desktop\Reversão\" & "Ctas a Receber" & ".xls")
Set objSheet = xlApp.Activeworkbook.sheets(1)
objSheet.Activate
'Insere uma linha na primeira posição

objSheet.Rows("1:4").insert


objSheet.Cells(1, 1).Value = "REVERSÃO"


'-------------------------------------------------------------------
'Mudar a cor da Celula
With objSheet.Range("A5:K5").Interior
.ColorIndex = 15
       End With


With objSheet.Range("L5:Q5").Interior
.ColorIndex = 6
       End With

With objSheet.Range("R5:Y5").Interior
.ColorIndex = 23
       End With
       
'-------------------------------------------------------

'Mudar o tamanho da Linha
       
objSheet.Rows("4").RowHeight = 2.25

 objSheet.Rows("5:1000").RowHeight = 15.25

'---------------------------------------------------------
' Mesclar Celulas
'objSheet.Range("A2:B2").Merge

With objSheet.Range("A1:k3").Merge

objSheet.Range("A1:k3").Merge

End With


objSheet.Range("A1:k3").Merge = False



'Ajusta o tamanho das colunas
objSheet.Columns.autofit
'Salva a planilha
wkb.Save
'Fecha tudo
wkb.Close
Set objSheet = Nothing
Set wkb = Nothing
xlApp.Quit
Set xlApp = Nothing

 

End Sub