sub Main

oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
oView = ThisComponent.getCurrentController()

ranges() = Array("B6:B8", "E6:E8", "H6:H8")

For Each range In ranges()
 oRange = oSheet.getCellRangeByName(range)

 nFlags = com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.STYLES

 oRange.clearContents(nFlags)
Next range

end sub