problem with cell borders

[mehdoush]

hello

i want to apply this code that i recorded to columns "A","B" and "C" and to unknown number of rows, here's the code:

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/03/2009 par MehBA
'
'
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .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
   
End Sub

thanks in advance
regards

 

[Tom Urtis]

You did not say how the last "unknown row" is determined. Because you are only interested in columns A:C, maybe you want the range to be from A1 to whatever the last row with data in it is among columns A:C, which the below macro would do for the kind of borders your posted macro yielded:

Sub Test1()
With Range("A1:C" & Range("A:C").Find(What:="*", After:=Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row)
.Borders.LineStyle = xlContinuous
.BorderAround Weight:=xlThick
End With
End Sub

 

[mehdoush]

thanks Tom Urtis

regards