Entre o declare e o function, coloque PtrSafe.

Declare PtrSafe Function FindWindow .....

Fernando essa parte eu já fiz, esse problema era o da imagem 1, quando eu coloquei o ptrsafe, apareceu outro problema, o da imagem 2 e 3, conforme anexo...

vc precisa clicar no depurar e colocar aqui a imagem. sem vermos a linha do erro, dificilmente conseguiremos descobrir.

Abs,

Fenando Bom dia,

pior que mesmo depurando ele não leva ao local onde está dando erro aparece a segunda e a terceira imagem conforme anexo apenas

Tente utilizando seguir a rotina Passo a Passo utilizando a tecla F8.

Abra a janela do VBE e na rotina inicial, coloque o cursor em cima da macro e vá teclando F8, assim você irá acompanhar linha por linha, a cada passo ela ficá amarela, assim qdo chegar na linha do erro terá a mensagem.

[]s

Abra o VBE
Vá em Depurar/Compilar

talvez ali aponte aonde está o erro, sem ter que rodar a ferramenta.