Highlighting a Block of Cells to Define the Print Area
hi
In the exemple behind, A1 is the most upper left cell of the range you want. This should work if you have the same type of data in all your range.... You can't have a blank column for exemple, or an error column...But else, it should be working.
Range("A1:" & Range(Range("A1").End(xlDown).Address).End(xlToRig ht).Address).select
|