para abrir outro site na mesma janela, altere conforme abaixo:

Em Módulo1, troque o código lá por este aqui ...

Sub VerDescripcion()
    If Not UserForm1.Visible Then
        UserForm1.Show vbModeless
    Else
        UserForm1.CommandButton1_Click
    End If
End Sub

Em Userform1, troque Private por Public na linha abaixo

Private Sub CommandButton1_Click()

ficando assim ...

Public Sub CommandButton1_Click()

Olá alexandre_eng!
grato pela ajuda, prazer em conhecer, funcionou perfeitamente.
agora quero tirar os avisos de erro em script na navegação.
vou criar novo topico.
abraço.