Dynamic border: Auto-change

[jamescooper]

I'd like a simple macro which automatically changes using Private Sub Worksheet_Change(ByVal Target As Range) when the months in column B do not equal each other.

It needs to thin border from column A to column AT.

Hope that is enough explanation.

Many thanks.

I'd like

 

[Peter_SSs]

I suggest that you update your forum profile (click your user name at the top right of the forum, then ‘Account details’) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

See if this does what you want.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim a As Variant
  Dim i As Long
 
  If Not Intersect(Target, Columns("B")) Is Nothing Then
    Application.ScreenUpdating = False
    Range("A3:AT" & Rows.Count).Borders.LineStyle = xlNone
    With Range("B3", Range("B" & Rows.Count).End(xlUp))
      a = .Value
      For i = 2 To UBound(a)
        If a(i, 1) <> a(i - 1, 1) Then
          .Cells(i, 0).Resize(, 46).Borders(xlEdgeTop).LineStyle = xlContinuous
        End If
      Next i
    End With
    Application.ScreenUpdating = True
  End If
End Sub