Borders for columns macro

[aa2000]

Hello again folks

Im working on a large comparison spreadsheet, hence the questions all of a sudden.
Now I am trying to write a macro to draw a border on the right edge of the furthest cell that contains a value in the whole sheet.
Essentially I am trying to get the macro to look from column IV to A and the moment a value is detected in a column, it stops and puts a border on the right hand edge of the column. (Am I making sense??)

Can anyone help?

Thank you!

 

[doofusboy]

This checks row 1, but you can adapt to your needs:

Dim iCTR As Integer
 
    For iCTR = 256 To 1 Step -1
        If Len(Sheet1.Cells(1, iCTR).Value) > 0 Then
            Sheet1.Cells(1, iCTR).Select
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            Exit Sub
        End If
    Next iCTR

 

[jbeaucaire]

Try this:

Option Explicit

Sub BorderRight()
Dim LastCol As Long

    LastCol = Cells.Find("*", Cells(Rows.Count, Columns.Count), _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    Columns(LastCol).Borders(xlEdgeRight).Weight = xlMedium

End Sub