Hi All

I have a macro that inserts a blank row where it finds any text in
column A (code below), is it possible to insert this line with a border
on the top edge for columns A thru to J bearing in mind I have existing
borders to the left and right that I do not want to impact upon (NB the
left edge of column A and the right edge of column J are heavier weights
than the other sides)

Thaks in advance

ksp


Sub InsertRows()

With Range("A10:A2499")
On Error Resume Next
Set C = .Find(What:="*", LookIn:=xlValues)
If Not C Is Nothing Then
firstaddress = C.Offset(1, 0).Address
Do
C.Offset(0, 0).EntireRow.Insert
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address < firstaddress
End If

End With

End Sub


--
ksp
------------------------------------------------------------------------
ksp's Profile: http://www.excelforum.com/member.php...fo&userid=6267
View this thread: http://www.excelforum.com/showthread...hreadid=537681