you could click at the junction of the row and column headers so the entire
worksheet is selected, then do Format=Cells, go to the border tab and
unclick any borders.

for code:

Sub RemoveBorders()
With ActiveSheet.Cells
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

--
Regards,
Tom Ogilvy


"Janie" wrote:

I get spreadsheets emailed to me from other people sometimes and they will
sometimes include cells that have borders around them that go on forever. I
know how to set my print area to keep the lines from printing endlessly, but
how do Ijust get rid of them. Deleting them repeatedly doesn't work because
they go on forever.