Помогите с макросом

Помогите, знаний по OOoBasic как и по VBA нольподскажите что делает данный отрывок и как его перевести на OOoBasicКод:ActiveWorksheetName = ActiveWorkbook.Worksheets(1).Name If Not Worksheets(ActiveWorksheetName).AutoFilt erMode Then Selection.AutoFilter End If If Worksheets(1).FilterMode = True Then Worksheets(1).ShowAllData End If