If you want workaround just set this code to Standard library
Sub SetTitleForThisFrame
Dim sURL As String
Dim aStr
Dim nameOfActiveSheet As String
Dim oCurrentController As Variant
Dim nameOfDocument As String
Dim sTitle As String
sURL = ThisComponent.getURL()
If sURL="" Then Exit Sub
aStr = Split(sURL,"/")
nameOfDocument = ConvertFromURL(aStr(UBound(aStr)))
oCurrentController = ThisComponent.getCurrentController()
nameOfActiveSheet = "{"+oCurrentController.getActiveSheet().getName()+"} "
sTitle = InputBox ("Input name for this frame", "New name", nameOfActiveSheet+nameOfDocument)
oCurrentController.getFrame().setTitle(sTitle)
End Sub
and run it for each new window of workbook. No need “sheet name”, you can set any nick
Update: See this small example, please - NamewWindows.ods