Sub apria()
ActiveWorkbook.Path & "\SERIE A.xls"
End Sub

ho inserito il codice da te suggerito ma quando clikko sul pulsante mi dice

Errore di compilazione:

Errore di sintassi