Boa tarde, Carlos.

Vc não especificou o erro que está recebendo, então vamos eliminando por partes:

* O principal problema é que vc declarou a API no "Módulo2" mas vc faz a chamada a ela à partir da "Sub OpenURL" que está no "Módulo1". Isso seria perfeitamente possível se a declaração da função API não fosse "Private". Quando vc declara como Private, a Sub ou Function (ou variável) só é conhecida naquele módulo que foi criada. Sugestão 1: mova a function ScripInternet do Módulo2 para o Módulo1 e pode até eliminar o Módulo2. Sugestão 2: deixe como está mas substitua "Private Declare Function..." por "Public Declare Function..." no Módulo2.

* Se seu sistema for 64bits, vc deverá além disso incluir a palavra-chave PtrSafe após a instrução "Declare". Ficaria então "Private Declare PtrSafe Function ScripInternet..." (Sugestão 1) ou "Public Declare PtrSafe Function ScripInternet..." (Sugestão 2 acima).

* Clique com o botão direito sobre o botão "Botão1" na planilha e escolha "Atribuir macro" e escolha a macro OpenURL para ele.

Com essas alterações testei aqui e funcionou legal, ok?
Saudações.

Obrigado Edson.

Sou very amador no VBA ainda, mas vou tentar seguir os conselhos.

Valeu mais uma vez!