Thread: Display workbook filename in title bar and use personal workbook
View Single Post
 
Old 08-04-2022, 02:56 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,382
Guessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud of
Default
To get the macro to run without manually asking it to run, you need to put it in the ThisWorkbook module and use the built-in names associated with particular events. I would use these ones
Code:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
  ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

Private Sub Workbook_Open()
  ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote