>Hi all,
>
>If I have cells range like below:
>
>
>with oExcel
> .Range( "D3", .ActiveCell.SpecialCells(11).Select )
> ...
> ...
> Here I want make each fourth vertical line thicker - but how ?
> ...
>endwith
>
>TIA
>Regards, Gojko

In that range select every 4th column and set cells' right border to thick.Something like:
with yourRange.Colums(index).Cells.Borders(xlEdgeRight)
.Weight = xlThick
.LineStyle = xlContinous

Cetin