The borders of the selected range

Hi!

How I can find the borders of the selected range?
In particular: the first row/column and the last row/column
to realoze export form Excel?

It is my code...

Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles AxWebBrowser1.NavigateComplete2
On Error Resume Next
oDocument = e.pDisp.Document
oDocument.Application.CommandBars("Standard").Position = Microsoft.Office.Core.MsoBarPosition.msoBarTop
CheckBoxShowBar.Enabled = True
End Sub

The user select range for export...

...
oDocument.Worksheets(1). - ??????

...

Hi,

May be you can try this

Range("A1").Select
                Range(Selection, Selection.End(xlToRight)).Select
                Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    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
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

-Fron-

I can't understand how I can use "Selection" in my VB 2005 code.

For example It is the working code

HTML Code: 

But how use "Selection" in it?

oDocument.Selection does't work.

this is your code:

oDocument.Worksheets(1).Range("a1:g1").select

under this code, add:
Selection.Borders
.
.
.
.
may be you can give it a try

Your 'oDocument' variable refers to a workbook while the 'selection' refers to application and not to workbook.

In other words,
you can do:

With oDocument.Worksheets(1).Range("a1:g1").Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With

and not:

oDocument.Worksheets(1).Range("a1:g1").select

because in this case you don't have the variable to refer to application because you would write:

With  <variable for application>.Selection.Borders(xlEdgeLeft)
...
End With

I hope it can help.

Regards,
Antonio