Naomi,

Not only those; there are also Diagonals....
However, some settings are defaults, and then you may omit to code them

>>>How about:
>>>

>>>loExcel.range([A1]).Select
>>>

>>>not tested at all
>>
>>Thanks, it worked. I just noticed, that Excel grid lines are not visible if I'm using different color for the cell (in my case I use blue). I'm thinking, may be it would look nicer, if I add borders for each cell?
>>
>>I've recorded macro and got
>>

>>With Selection.Borders(xlEdgeLeft)
>>        .LineStyle = xlContinuous
>>        .Weight = xlThin
>>        .ColorIndex = xlAutomatic
>>    End With
>>    With Selection.Borders(xlEdgeTop)
>>        .LineStyle = xlContinuous
>>        .Weight = xlThin
>>        .ColorIndex = xlAutomatic
>>    End With
>>    With Selection.Borders(xlEdgeBottom)
>>        .LineStyle = xlContinuous
>>        .Weight = xlThin
>>        .ColorIndex = xlAutomatic
>>    End With
>>    With Selection.Borders(xlEdgeRight)
>>        .LineStyle = xlContinuous
>>        .Weight = xlThin
>>        .ColorIndex = xlAutomatic
>>    End With

>>
>>Sounds like a lot to set borders...
>
>You missed two more:
>

> With Selection.Borders(xlInsideVertical)
>        .LineStyle = xlContinuous
>        .Weight = xlThin
>        .ColorIndex = xlAutomatic
>    End With
>    With Selection.Borders(xlInsideHorizontal)
>        .LineStyle = xlContinuous
>        .Weight = xlThin
>        .ColorIndex = xlAutomatic
>    End With
>

>:o)