I just tried putting
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
MsgBox Application.ActiveWorkbook.Name & " " & Application.ActiveWindow.WindowNumber
End Sub
And it fired and shows the window number correctly. So what code are you trying to use?