Sub ksAutofilter
Dim objController as Object
Dim objFrame as Object
objController = ThisComponent.CurrentController
objFrame = objController.getFrame()
oDispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)
activeSheet = objController.ActiveSheet
selectedCell = activeSheet.getCellRangeByPosition(0,0,3,4)
ThisComponent.CurrentController.select(selectedCell)
oDispatcher.executeDispatch(objFrame, “.uno:DataFilterAutoFilter”, “”, 0, Array())
End Sub