title bar

[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

 

[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.

 

[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






.