Replacing the Microsoft Excel header....

[UKPhil]

Does anyone know how to remove the Microsoft Excel header from the top of the page so it can be replaced with other text of my choosing?

Thanks-in-advance

UKPhil

 

[XL-Dennis]

UKPhil,

How about:

Application.Caption = "My Title"

Restore:
Application.Caption = ""

 

[Richie(UK)]

Hi phil,

Try this link;

http://www.mrexcel.com/board/viewtopic.php?topic=9440&forum=2

HTH

 

[UKPhil]

Ok.... Probably should have asked this at the time, but how do I restore the original default message ie "Microsoft Excel - Book1.xls"

 

[Richie(UK)]

Hi phil,

Try:
<pre>
Sub replace()
ActiveWindow.Caption = "" 'remove window name
Application.Caption = "Hello!" 'replace "Microsoft Excel"
End Sub

Sub restore()
ActiveWindow.Caption = ActiveWorkbook.Name 'restore window name
Application.Caption = "" 'restore "Microsoft Excel"
End Sub

</pre>