Macro para cambiar el nombre a varios archivos

Necesito de su valioso conocimiento. Estoy intentando crear una macro para cambiar el nombre de todos los archivos * .txt contenidos en una carpeta que contenga una conversación entre dos usuarios. El formato del nombre de los archivos seria: Nombre de Usuario 1_Nombre de Usuario 2.txt.

Luego la macro debe abrir todos los archivos txt. En un libro de excel, donde cada txt se mostrara en una hojas de excel separadas.

Agradecería mucho su ayuda ya que esto me ahorrara mucho trabajo.