Atributo duplicado xmlns="" vba -Nfe

[edsonc]

Alguém sabe como posso tirar o atributo xmlns="" como podem obsevar no trecho de código ele não está , mas quando gera o xml ele aparece.

Set wst = Worksheets("Criar_Novo_XML")
Set objDom = New DOMDocument60

'Cabeçalho
objDom.appendChild objDom.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
'Criar nfeProc
Set objnfeProcElem = objDom.createElement("nfeProc")
objDom.appendChild objnfeProcElem
objnfeProcElem.setAttribute "versao", "2.00"
objnfeProcElem.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe"
'Criar NFe
Set objNfeElem = objDom.createElement("NFe")
objnfeProcElem.appendChild objNfeElem
objNfeElem.setAttribute "xmlns", "http://www.portalfiscal.inf.br/nfe"
'Criar infNFe
idNFe = "NFe" & wst.Range("AG37") 'Dados id NF
Set objinfNFeElem = objDom.createElement("infNFe")
objNfeElem.appendChild objinfNFeElem
objinfNFeElem.setAttribute "Id", idNFe
objinfNFeElem.setAttribute "versao", "2.00"

arquivo gerado ele aparece isso: xmlns="" como consigo tirar esse atributo?

<?xml version="1.0" encoding="UTF-8"?>
-<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">

-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">

-<infNFe xmlns="" versao="2.00" Id="NFexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx">