Question : Reset Excel Title bar caption?

If I use the code below to change Excels title bar caption... what do I put in the Workbook_BeforeClose process to reset it back.  I also use the Activate/Deactivate processes.  I should probably add this sub to those, so when the focus changes to another workbook, it changes the caption too.

Please advise and thanks. -R- 
1:
2:
3:
4:

Private Sub Workbook_Open()
        Application.Caption = "Application Name"
        Application.ThisWorkbook.Windows(1).Caption = "Your Caption"
End Sub

Answer : Reset Excel Title bar caption?

This should work, using your previous code.

Matt
1:
2:
3:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ThisWorkbook.Windows(1).Caption = Sh.Name
End Sub
Random Solutions  
 
programming4us programming4us