Hi,
I've got some code that I've modified to draw a box around unique cells in a column. But what I'd like it to do is draw a box around the rows which hhare the unique cells.
Code
Sub BorderMe()
Dim rngStart As Range
Dim rngCell As Range
Set rngStart = Range("I4")
' set the defined range to 1 row more than your actual data
For Each rngCell In Range("I4", Range("I" & Rows.Count).End(xlUp).Offset(1, 0))
If rngCell.Value <> rngStart.Value Then
With Range(rngStart, rngCell.Offset(-1, 0))
.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Set rngStart = Range(rngCell.Address)
End With
End If
Next
End Sub
Display More
Any help much appreciated.