Personal.Xlsb Workbook.Activate not working

Then you need an application-level event sink.

Private WithEvents app as Excel.Application
Private Sub Workbook_Open
Set app = Application
End Sub
Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
    If Instr(1, wb.name, "some text", vbtextcompare) > 0 then wb.sheets("sheet name").select
End Sub

for example.