View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default Writing the name in toolbar

Private Sub Workbook_Open()
Application.StatusBar = "MyTeamName"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = ""
End Sub

Placed in Thisworkbook module.

You could alternatively place MyTeamName in the Title Bar at top of Window.

Private Sub Workbook_Open()
ActiveWindow.Caption = "MyTeamName"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Caption = ""
End Sub


Gord Dibben MS Excel MVP


On Tue, 6 Nov 2007 04:21:01 -0800, Jithu
wrote:

Hi Friends,

Can someone help in writing my team's name in the excel?

The name should come inside the border. (In excel, below the sheet tab, you
can always see a command "READY".) i want to display the name near to the
text "READY"..(making more clear - if you right click the mentioned space you
can select count, sum, average etc)

Thanks in advance for your time

Jithu