Erro de definição de objeto

[Emanuelle Oliveira]

Boa tarde, estou programando um VBA para copiar e colar informações de uma planilha em outra:

Sub preenchimento

Dim esse As Workbook, outro As Workbook, ws As Worksheet

Workbooks.Open ("caminho")

Set este =  ThisWorkbook

Set outro = ActiveWorkbook

Set ws  = este.Sheets(2)

outro.Sheet(6).Range("D5").End (xltoRight).Copy

With este.Sheet(2)

Linha = este.Sheets(2).Range("D5").End (xlToRight).Row + 1

ws.Cells (5, Linha).Select

Selection.PasteSpecial

End With

End Sub

Porem esta dando erro de definição de objeto na linha que está de vermelho, alguém conseguiria me auxiliar nesse erro?

[Alyson Ronnan Martins]

Bom dia.

vi um erro na declaração das variáveis:

Dim esse As Workbook, outro As Workbook, ws As Worksheet

Só que dentro do seu código está usando o “este”