Bom dia pessoal,
Primeiro queria agradecer a todos pela oportunidade de poder ajudar aqui no forum, mesmo que com pouco conhecimento

Estou montando um arquivo novo (está basicamente em branco), e preciso copiar os itens de uma aba para outra (XMLdb para RelGrl).
Já fiz a busca da coluna e está tudo certinho,
Quando eu vou fazer o select (jeito simples para teste, estou usando destination) do range a ser copiado, está dando erro de Range

Alguem sabe explicar? É a ultima linha!

Outra coisa, eu escrevi um outro tópico aqui, e comentaram para não usar function para nomear as worksheetss. Como eu faço então para nomear somente uma vez por módulo, para diversas subs?

Muito obrigado de antemão!

HFava

Public Property Get XMLdb() As Worksheet
    Set XMLdb = Worksheets("XMLDatabase")
    'Nomear aba publica
End Property
Public Property Get RelGrl() As Worksheet
    Set RelGrl = Worksheets("RelatorioGeral")
    'Nomear aba publica
End Property
Public Property Get RSKUs() As Worksheet
    Set RSKUs = Worksheets("Reg.SKUs")
    'Nomear aba publica
End Property
Public Property Get Orca() As Worksheet
    Set Orca = Worksheets("Orcamento")
    'Nomear aba publica
End Property
Sub AtuItemRelGrl()

Dim CNPJ As Object, BnNF, BCFOP, BCodRed, BDescr, BuCom, BDtEm As Object
    Set CNPJ = RelGrl.Range("C5")
With XMLdb.Rows(1)
    Set BnNF = .Find("ns1:nNF", LookIn:=xlValues) 'aqui eu crio a referencia para encontrar o endereco
    Set BCFOP = .Find("ns1:CFOP", LookIn:=xlValues)
    Set BCodRed = .Find("Cod. Reduzido", LookIn:=xlValues)
    Set BuCom = .Find("ns1:uCom", LookIn:=xlValues)
    Set BDtEm = .Find("Data Emissao", LookIn:=xlValues)
End With

    CnNF = BnNF.Column
    CCFOP = BCFOP.Column
    CCodRed = BCodRed.Column
    CuCom = BuCom.Column
    CDtEm = BDtEm.Column

    XMLdb.AutoFilterMode = False
    XMLdb.Rows(1).AutoFilter field:=26, Criteria1:=CNPJ

    uLinXMLdb1 = XMLdb.Columns(1).End(xlDown).Row



    XMLdb.Cells(1, 1).Select   '''''Aqui está o erro


End Sub