OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Pro vymazání oblasti dat používám následující makro

Sub VymazatPohyby
On Error GoTo Err_VymazatPohyby
    Dim ListySesitu As Object, List As Object
        ListySesitu = ThisComponent.getSheets
        List = ListySesitu.getByName("Pohyby zboží")
        List.getCellRangeByName("A4:R8003").ClearContents(1+2+4+8+16)
        JdiNaBunku("A4")   
Konec:
    Exit Sub
Err_VymazatPohyby:
    MsgBox "Chyba číslo: " & Err & Chr(13) & "Popis Chyby: " & Error & Chr(13) & "V řádku číslo: " & Erl, 0 + 64, "Vymazat"
    Resume Konec   
End Sub

Ve verzích OOo 2.4 - 3.0 vše naprosto bez problémů, ve verzi OOo 3.1 calc vytuhne a přestane jakkoli komunikovat.
Proto prosím poraďte kde je chyba.