range, format, file size
 

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".

range, format, file size
 

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