excel macro VBA para conectar várias sessões de área de trabalho remota no mesmo PC

Question

Eu tenho várias sessões de área de trabalho remota no mesmo PC (com nome de usuário e senha diferentes para cada sessão) e quero conectá-las em sequência e executar macro em cada sessão, estou usando o código abaixo para conectar-se a cada sessão, mas sempre abre a última sessão que abri, eu armazenei o IP do servidor na coluna B e o nome de usuário da sessão na coluna C e as senhas na coluna D

Sub open_RDP()
    Dim RetVal As Variant
    For a = 2 To 3
        Target = Cells(a, 2)
        user = Cells(a, 4)
        pass = Cells(a, 5)
        RetVal = Shell("cmdkey /generic:""" & Target & """ /user:""" & user & """ /pass:""" & pass & """", 1)
        RetVal = Shell("c:\Windows\System32\mstsc.exe /admin /v:" & Target, 1)
    Next a