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