make border wt selection only

[ash3angel]

please help me coding only with my selection that i want to have a border.

e.g


a b c d
a
a
1 2 3 4
5 6 7 8
9 9 9 9
1 2

i want to put a border with only the numbers. starting with cell a7 to d7 or until it has a value going down.

thanks

[:) Sixthsense :)]

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[ash3angel]

Start borders in HeAder Invoice, AMount and make it center.
Thanks

[:) Sixthsense :)]

Sub ApplyBorder()
Dim rFound As Range, lRw As Long, iCol As Integer

Set rFound = Range("A:A").Find("Invoice Number")

If Not rFound Is Nothing Then
    Application.ScreenUpdating = False
    With rFound
        lRw = .End(xlDown).Row
        iCol = .End(xlToRight).Column - .Column + 1
        With .Resize(lRw - .Row + 1, iCol).Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
    End With
    Application.ScreenUpdating = True
End If

End Sub

[ash3angel]

thanks, complicated code for me :-), ill try this later when get home.

[ash3angel]

thanks, complicated code for me :-), ill try this later when get home.

thanks this awesome, please help me understand the code. thank u very much