>I understand the use of ranges (I think). The problem is that you don't get fully formed boxes when you use a range. The only way I could get it to work was loop through each cell succesively setting the form for all four sides.
>
>The command .Borders(xlHorizontalInside).LineStyle = xlContinuous and
>.Borders(xlHorizontalInside).LineStyle = xlContinuous both gave me an error when used with the range. Without them, you just get 2 vertical lines....not horizontal. If you set a range like your suggesting, you get a border around the entire range, not around each cell.

Try this:

WITH oSheet.UsedRange
	.Borders(xlEdgeTop).LineStyle	 = xlContinuous
	.Borders(xlEdgeLeft).LineStyle 	 = xlContinuous
	.Borders(xlEdgeRight).LineStyle  = xlContinuous
	.Borders(xlEdgeBottom).LineStyle = xlContinuous
	.Borders(xlInsideHorizontal).LineStyle  = xlContinuous
	.Borders(xlInsideVertical).LineStyle = xlContinuous
ENDWITH