переименование листов (решено)

OO 2.3 pro calc имеем процедуру Код:sub pr Dim Doc As Object Dim Shet As Object Doc = StarDesktop.CurrentComponent a = Doc.Sheets.count If not Doc.Sheets.hasByName(Nshet) Then Doc.getSheets().insertnewByName("1", a) Shet = Doc.Sheets(a) Shet.Name() = Nshet 'Shet = Doc.Sheets.getByName(Nshet) End Ifend sub в цикле основной процедуры обращаюсь к ней, при первом обращении все отрабатывает нормально, при втором не переменовывает листподскажите в чем дело?