Public Function CountInnerRangeWidth(rRange As Excel.Range) As Double
'Определение суммарной ширины поля
Const Delim As Double =  0 . 714444444444444 
On Error GoTo Err_
Dim dRWidth As Double
Dim k As Long

    For k =  1  To rRange.Areas( 1 ).Cells.Count
       dRWidth = dRWidth + rRange.Areas( 1 ).Cells(k).ColumnWidth
    Next k
    CountInnerRangeWidth = dRWidth + _
        IIf(dRWidth -  1  >  0 , dRWidth -  1 ,  0 ) * Delim

Exit_:
    Exit Function
Err_:
    MsgBox Err.Description, vbCritical + vbOKOnly, cstr_ErrPrefix & "CountInnerRangeWidth"
    Resume Exit_
End Function

Public Function CountInnerRangeWidth(rRange As Range) As Double
Const Delim =  0 . 714444444444444 
On Error GoTo Err_
Dim dRWidth As Double
Dim lRCount As Long

    dRWidth = rRange.ColumnWidth
    lRCount = rRange.Count
    CountInnerRangeWidth = dRWidth * lRCount + _
        IIf(dRWidth * lRCount -  1  >  0 , dRWidth * lRCount -  1 ,  0 ) * Delim

Exit_:
    Exit Function
Err_:
    MsgBox Err.Description
    Resume Exit_
End Function