VBA: Show custom title in Excel caption

[FryGirl]

This is just a small part of my workbook open code, but the only question is about the use of the caption property.

Using the With Application makes the caption spread to all open workbooks, but I need this just on the workbook that contains the code.

I tried a few examples like Application.ActiveWorkbook, but that doesn't compile.

Private Sub Workbook_Open()
    With Application
        .Caption = CurCaption & CurVersion
        .StatusBar = MyPOC
    End With

End Sub

 

[mrshl9898]

This doesn't add the caption after the book name, but replaces it.

ActiveWorkbook.Windows(1).Caption = "bla"

I guess you could use something like this though to replicate the result

ActiveWorkbook.Windows(1).Caption = ActiveWorkbook.name & " - " & "bla"

 

[AlphaFrog]

I don't think you can have the Application caption for just one workbook.

In the top application title bar is the application caption followed by the currently activeworkbook name.

The application caption is the same for all open workbooks.

The active workbook name will change for each workbook when they are activated. You could SaveAs the workbook with CurCaption & CurVersion to change its name.

 

[FryGirl]

Thank you both for your time. In the end, I think I will do away with the caption. It' serving no real purpose in my workbook.