Este fórum está sendo desativado

[gilbertjuniors]

Pessoal, bom dia.

Não estou conseguindo eliminar o uso de SELECT num trecho de código para copiar um range de uma sheet e colar em outra, e isto está gerando erro quando oculto a sheet na qual é realizado o SELECT.

Segue o código

Código: Selecionar todos

    With .Sheets("Departamentos")
        ultLin = .Cells(Rows.Count, "A").End(xlUp).Row
        .Range("A1" & ":D" & ultLin).Copy
    End With
    
    With .Sheets("Validações")
        Planilha = .Name
        .Select
        .Range("D1").Select
        .Paste
    End With

Agradeço a quem der uma luz para a solução deste problema.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub teste()
 Sheets("Departamentos").Range("A1:D" & Cells(Rows.Count, 1).End(3).Row).Copy Sheets("Validações").Range("D1")
End Sub