Hi Adam

One way among many:

Sub test()
Dim R As Long
Dim V As Variant
V = Range("A1").Value
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row + 1
If Cells(R, 1).Value < V Then
V = Cells(R, 1).Value
With Cells(R - 1, 1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End If
Next
End Sub

HTH. Best wishes Harald
"
m skrev i melding
...
I want to be able to go down column A in a worksheet and if the next entry
is
not the same as the previous, I want to put a line between the two rows.
How
would I go about doing this?

Thanks

Adam Bush