application message

  • Thread starter Thread starter Pablo
  • Start date Start date
P

Pablo

Hello:

Want to run a line of code in the "This Workbook" which changes the
application header:

Sub Workbook_Open()
Application.Caption = "New Model"
End Sub

However, what I also need is something when that specific workbook is
closed that the application header will go back to normal.

How do I do this?
 
Use this event also in the thisworkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub
 
Back
Top