Boa tarde savio

O problema é o o select, devemos evitar o uso para evitar esses problemas.

Acesse e leia::

https://www.funcaoexcel.com.br/9-dicas- ... is-rapida/

Não se esqueça de clicar na mãozinha.

[]s

Poderia me mostrar um exemplo de como ficaria, utilizando o exemplo abaixo?

Selection.Copy - (Copia a Id da planilha ativa)
Workbooks("CONSULTAS.xlsm").Activate - (Vai para outra pasta de trabalho)
Sheets("CATALOGO").Select - (Selecionada a planilha CATALOGO)
Range("B3").Select - (Utiliza a célula B3)
ActiveSheet.Paste - (Cola a Id)

Obrigado desde já.

poderia ser algo tipo isso:

Sub Exemplo()
Dim Wb as Workbook : Set Wb = Workbooks("CONSULTAS.xlsm")
Dim Ws as Worksheet : Set Ws = Sheets("CATALOGO")
Dim Myrange as Range : Set Myrange = Range("B3")

Wb.Ws.Myrange.Value = Selection.Value

Set Wb = Nothing
Set Ws = Nothing
Set Myrange = Nothing

End Sub

A escrita mais longa é a das variáveis. Repare que o comando em si só tem uma linha. Além do mais não irá interferir na atualização de tela.

xlarruda, boa tarde!

A linha de comando deve ter alguma coisa errada, pois solicita depurar (Erro)!
Lembrando que estou trabalhando com duas planilhas de pastas de trabalho diferentes.