Para abrir o arquivo B junto com o arquivo A cole este código em "EstaPasta_de_trabalho"

Private Sub Workbook_Open()

Workbooks.Open Filename:=ThisWorkbook.Path & "pasta2.xlsx" 'o ThisWorkbook.Path funciona se estiverem na mesma pasta, se não estiverem você deve _
escrever o caminho do arquivo. 'pasta2' você deve substituir pelo nome do seu arquivo e tem que ficar atento à extensão, por exemplo, se estiver macro ela fica xlsm, e se for compatível com versões anteriores a 2007 do excel é xls.

ThisWorkbook.Activate

End Sub

Para fechar os arquivos ao mesmo tempo cole este código no mesmo lugar:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Workbooks("pasta2.xlsx").Save ' se quiser salvar o outro arquivo, caso não deseje salvá-lo pode apagar esta linha 

Workbooks("pasta2.xlsx").Close

End Sub