неправильно рабтает макрос

[Olya1985]

Помогите, пожалуйста, решить проблему с установкой границ для файла.

Если в этом скрипте пишу число 17, что означает что если выделено более 17 ячеек, то тогда при работе макроса выходит ошибка unable to set the property for body class. а если ставлю 20, то все нормально, только вот границами не выделяются первые и последние строки.



If Selection.Count > 17 Then
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizonta l)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If

[VictorM]

напишите так. У Вас там много лишнего.

If Selection.Count > 17 Then
        With Selection.Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End If

[VictorM]

ли вообще так:

Sub tt2()
    If Selection.Count > 17 Then Selection.Borders.LineStyle = xlContinuous
End Sub

[Olya1985]

нет, так получается что границы не проставляются для первой и последней строки

[VictorM]

у меня все проставляется, все границы в выделенном диапазоне
чудес не бывает

[Olya1985]

у меня тут просто большой макрос - рассылка с вложенными файлами, вот в этих файлах и не проставляется таким вот образом

[VictorM]

значит нужно искать что там у Вас в макросе мешает. А
If Selection.Count > 17 Then Selection.Borders.LineStyle = xlContinuous
только прорисовывает границы выделенного диапазона.
Причем правильно