Renaming Excel

[Acorn]

Hi...

Is it possible to change the name that you see at the top of the excel so that instead of it saying 'Microsoft Excel-Book 1' you can make it say something else like 'Acorn Book'

THanks
Acorn

 

[TommyGun]

Something like this...don't really like this method of changing the GUI, but it should do what you ask for...

Application.Caption = "Acorn Book"

 

[Acorn]

WOW

so kewl thank you!!! TommyGun!!!!

 

[atmospheric]

Tommy, please explain how to get this to work,

Thanks in advance

 

[Smitty]

Right click a sheet tab and select View Code. Paste this in there and hit F5

Sub RenameMe()
    Application.Caption = "Atmospheric"
End Sub

ALT+TAB to get back to your sheet.

Note that Excel will remain named "Atmospheric" until you rename it by running the sub again or exiting Excel.

You can also got to the ThisWorkbook module and put:

Private Sub Workbook_Open()
   Application.Caption = "MyCaption"
End Sub

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

Hope that helps,

Smitty

 

[atmospheric]

Thanks Cheapskate, sorry, Pennysaver, could you just explain the second part of the second suggestion please:

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

 

[Smitty]

Sure AirHead

For cases when you rename Excel something application specific in a Workbook_Open event, like "Financial Management System" and don't want Excel to retain that name when the workbook is closed, you rename it when you close it in a Workbook_BeforeClose event.

I usually use something sophmoric like "Macrosofa XL"

Make sense?

Smitty

 

[atmospheric]

No

 

[Smitty]

What doesn't make sense?

From the VBA Help File:

BeforeClose Event

Occurs before the workbook closes. If the workbook has been changed, this event occurs before the user is asked to save changes.

Syntax

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel False when the event occurs. If the event procedure sets this argument to True, the close operation stops and the workbook is left open.

BeforeClose Event Example

This example always saves the workbook if it's been changed.

Private Sub Workbook_BeforeClose(Cancel as Boolean)
If Me.Saved = False Then Me.Save
End Sub

That help any?

Smitty

 

[atmospheric]

Yes, that's a little clearer thanks, but the reason I asked is that the part quoted seemed to have no effect. I left it in place, but the workbook still opened as I had renamed it, i.e. it didn't cancel the first action.