I am trying to format all cells with data in an excel document.

if i do this:

Set r = oSheet.Range("A1").CurrentRegion

....any blank rows in the spreadsheet end the "CurrentRegion", so data below
the blank row is not formatted.

and if i do this:

Set r = .Range(.Range("A1"), .Cells(65536,
..Range("IV1").End(xlToLeft).Column).End(xlUp))

....the entire worksheet gets formatted correctly, but the size of the saved
excel file is huge.

any suggestions for a better way to format all cells with data in a
spreadsheet OR is there a way to save an excel file while dumping extra info
in "blank cells".

I'd use
osheet.usedrange
to determine the cells that are in use.

Or format entire columns.

www051906 wrote:

I am trying to format all cells with data in an excel document.

if i do this:

Set r = oSheet.Range("A1").CurrentRegion

...any blank rows in the spreadsheet end the "CurrentRegion", so data below
the blank row is not formatted.

and if i do this:

Set r = .Range(.Range("A1"), .Cells(65536,
.Range("IV1").End(xlToLeft).Column).End(xlUp))

...the entire worksheet gets formatted correctly, but the size of the saved
excel file is huge.

any suggestions for a better way to format all cells with data in a
spreadsheet OR is there a way to save an excel file while dumping extra info
in "blank cells".

--

Dave Peterson