title bar

G

greg

Excel 2000

Is there a way of changing the contents of the Title bar
so Microsoft Excel is not part of the bar?

I am doing a special workbook for our company and we want
just our company name at the top.

Thanks
 
N

Norman Jones

Hi Greg,

In the ThisWorkbook module of the special workbook paste the following:

Private Sub Workbook_Activate()
Application.Caption = "My Company Name" <<=== CHANGE
End Sub

Private Sub Workbook_Deactivate()
Application.Caption = ""
End Sub

This will apply the custom title bar text when the special workbook is the
active workbook and will restore the default if another workbook is active.

Change the caption text to suit your needs.
 
G

greg

Hi Norman,

Thanks, that worked great!!
-----Original Message-----
Hi Greg,

In the ThisWorkbook module of the special workbook paste the following:

Private Sub Workbook_Activate()
Application.Caption = "My Company Name" <<=== CHANGE
End Sub

Private Sub Workbook_Deactivate()
Application.Caption = ""
End Sub

This will apply the custom title bar text when the special workbook is the
active workbook and will restore the default if another workbook is active.

Change the caption text to suit your needs.

---
Regards,
Norman






.
Click to expand...
 
Top