Hi,

This (given) code finds a cell with its top border set,
but doesn't if it holds a value:

With Application.FindFormat
    .Clear
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeTop).Weight = xlThin
    .Borders(xlEdgeTop).ColorIndex = xlAutomatic
End With
I've tried removing ".Clear" but it makes no difference.

Thanks,
Stuart.