ник: час
в опене всё наподобеее тока вот так
Dim nEndCol As Integer
Dim oCursor As Object
Dim aAddress As Variant
Set OOO_Range = OOO_Sheet.getCellRangeByName("A1:A1")
Set oCursor = OOO_Sheet.createCursorByRange(OOO_Range)
oCursor.GotoEndOfUsedArea (True)
Set aAddress = oCursor.RangeAddress
почемутта всегда 8 показывет
nEndCol = aAddress.EndColumn