Add bottom border to a row for each sheet matching a certain criteria

Sub Border()
     
    Dim r As Range, r2 As Range
    Dim ws As Worksheet
   
     
    For Each ws In ThisWorkbook.Worksheets
        With ws
            Set r = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            For Each r2 In r
                    If r2.Value = "Starting Point" Then
                    r2.Select
                    
                       With r2
                       
lr = ActiveCell.Row
lc = ActiveCell.End(xlToRight).Column
Range(ActiveCell, Cells(lr, lc)).Select




                        Selection.borders(xlEdgeBottom).Weight = xlThin
                                           
                                               
       'r = r2 + 1
                    End With
                    
                End If
               ' Worksheets(ActiveSheet.Index + 1).Select
            Next r2
       ' Next
        End With
   Next
End Sub