I have added a Class to my personal.xls which shows the full path of
the workbook in the caption. It all works except when I open a new
workbook. Is there something I am missing? Code below. TIA

Option Explicit
Public WithEvents App As Application
Private Sub App_WindowActivate(ByVal wb As Workbook, ByVal Wn As
Window)
Wn.Caption = wb.FullName
End Sub


Greg