Hi anilgoje !!!

Hope this helps.
The example below tested in EXCEL 97 !

One Hint, if you use the macro recorder, much of your work
is already done.

-cu TheOnly


'select the worksheet
With Worksheets("sheet1")

'select the range we want to use
With .Range("a1:g1,a1:a10")

'Note: if you use thin lines for the borders
' somtimes the doesn't appear in the sheet
' change to the preview window - then you can
' see it !!!

'top border line
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.Color = RGB(255, 195, 0)
End With

'left border line
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.Color = RGB(255, 195, 0)

End With
End With

'setup footer
'see excel help
.PageSetup.LeftFooter = "Sheet &P of " & " &N"

End With