https://bugs.documentfoundation.org/show_bug.cgi?id=132136
--- Comment #2 from Jürgen Kirsten <[email protected]> ---
Function Sheetname(Optional No) As String
On Error GoTo Errorhandler
IF IsMissing(No) Then
Sheetname = ThisComponent.CurrentController.ActiveSheet.name
Else
Sheetname = ThisComponent.Sheets(No - 1).name
End If
Exit Function
Errorhandler:
Sheetname = Error
End Function
--
You are receiving this mail because:
You are the assignee for the bug._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
