No funciona la macro cuando vuelvo a abrir excel

Esta macro que os escribo aquí abajo funciona bien mientras no cierro excel, en el momento que cierro el programa y vuelvo a abrirlo deja de funcionar. Alguien me puede decir que tengo que hacer?

Sub auto_open()

primero = ActiveWorkbook.Name

Workbooks.Open "BUENO.xlsm"

Workbooks(primero).Activate

Windows.Arrange ArrangeStyle:=xlVertical

End Sub

Lo que hace es abrir dos archivos a la vez y ponerlos en visión vertical para trabajar a la vez.