Meu IP

Obter o endereço IP público do seu computador usando apenas VBA pode ser um desafio, pois o VBA não tem funções internas para fazer isso diretamente. No entanto, você pode usar VBA para fazer uma solicitação a um serviço web externo que retorna seu IP público. Uma das maneiras de fazer isso é usando o objeto Microsoft.XMLHTTP para enviar uma solicitação a um serviço como http://api.ipify.org.

Sub ObterEnderecoIP()
    Dim httpObject As Object
    Set httpObject = CreateObject("MSXML2.XMLHTTP")

    ' Enviar uma solicitação para o serviço que retorna o endereço IP público
    httpObject.Open "GET", "http://api.ipify.org", False
    httpObject.Send

    ' Verificar se a solicitação foi bem-sucedida
    If httpObject.Status = 200 Then
        ' Escrever o endereço IP na célula A1
        ThisWorkbook.Sheets(1).Range("A1").Value = httpObject.responseText
    Else
        ThisWorkbook.Sheets(1).Range("A1").Value = "Não foi possível obter o IP"
    End If

    Set httpObject = Nothing
End Sub

Abra o Excel e pressione ALT + F11 para abrir o Editor do VBA.
No menu “Inserir”, escolha “Módulo” para criar um novo módulo.
Cole o código acima no módulo.
Execute a sub-rotina ObterEnderecoIP.
Este código faz uma solicitação ao site http://api.ipify.org, que simplesmente retorna o endereço IP público do solicitante. O endereço IP é então escrito na célula A1 da primeira folha.

Lembre-se de que este método depende de um serviço web externo e pode não funcionar se o computador estiver atrás de um firewall ou proxy que bloqueie a solicitação HTTP. Além disso, isso retornará o IP público, que pode ser o mesmo para todos os dispositivos na mesma rede local.