VBA Border around range if row contains any data - Auto update

[jamescooper]

Hello,

I'd like some VBA worksheet change to apply borders that applies to a range when data is entered.

So, For examples data is in B12:AB700.

But at present data is only up to row 125 so should only apply to this.

Any ideas? Thanks.

 

[jamescooper]

Any ideas please?

 

[Peter_SSs]

I'm not sure we have enough information, but if the last row used can be determined from column B and the last column can be determined from row 12, then you could try this in a copy of your workbook.

If it is not what you want, please give more details about what you have, what you are doing with the sheet and what you are trying to achieve.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rMax As Range
  
  Set rMax = Intersect(Rows("12:" & Rows.Count), Columns("B").Resize(, Columns.Count - 1))
  If Not Intersect(Target, rMax) Is Nothing Then
    rMax.Borders.LineStyle = xlNone
    Range("B12", Range("B" & Rows.Count).End(xlUp)).Resize(, Cells(12, Columns.Count).End(xlToLeft).Column - 1).BorderAround LineStyle:=xlContinuous
  End If
End Sub