Aparentemente, esse problema conhecido afeta a edição do Excel 2013 Office 365 e é a causa dos meus problemas.
A correção é mover Activate
para o evento Workbook_Activate()
em vez de Workbook_Open()
:
Private Sub Workbook_Activate()
Sheet1.Activate
End Sub
Private Sub Workbook_Open()
End Sub
Tudo funciona bem agora.