>to do this.
>
>
>WITH .Parent.Styles("Cell")
> .Borders(xlEdgeTop).LineStyle = xlContinuous
> .Borders(xlEdgeLeft).LineStyle = xlContinuous
> .Borders(xlEdgeRight).LineStyle = xlContinuous
> .Borders(xlEdgeBottom).LineStyle = xlContinuous
> ENDWITH
>
> **-- set all cells with borders
> FOR lnI = 1 TO .usedRange.columns.count
> FOR lnJ = 1 TO .UsedRange.rows.count lcRange = [.Range("] + CHR(lnI + 64) + ALLTRIM(STR(lnj)) + [").Style = "Cell"]
> &lcRange
> ENDFOR
> ENDFOR
>Try to select a range, and format it all at once. Do this with a macro, and look at the recorded commands.
Example of range manipulation (sets FontSize for a range):
with oSheet
.Range(.Cells(1,1), .Cells(5,5)).Font.Size = 20
The code may be simpler or more complicated, but it is to your advantage to manipulate entire ranges: there are much less messages to be exchanged between VFP and Excel.
HTH, Hilmar.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
