change the displayed title so 'microsoft exel' is not in it
Try this
Public WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
If Wb.Path "" Then App.Caption = Wb.Path
End Sub
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
--
HTH
Bob
"dmvj" wrote in message
...
How can i reduce that title displayed on the task bar and the window
border
so that it doesnt say 'microsoft excel (spreadsheet name)' but instead
just
says 'spreadsheet name'. I know its an excel document, i can tell from
the
green x. I would much rather be able to see the title especially when i
have
many open at once.
|