Sub ColumnOptimaize()
Dim objSheet as Object
objSheet = ThisComponent.CurrentController.ActiveSheet
objSheet.getColumns.OptimalWidth = true

End Sub