Application.Caption Centering

[jstevens]

Is it possible to center the caption? The default is left aligned.

Regards,
John

[Jezza]

Hi John

It all depends on screen size and resolution so I have played around a little and got this which is near as damn it.

Code: Select all

Private Sub CentreCaption()
     Application.Caption = String(Int(ActiveWindow.Width / 5), Chr(32)) & "John's Workbook"
     ActiveWindow.Caption = "is in the centre"
End Sub