Used range plus One row

[teatimecrumpet]

Hi,

I'm trying to use some vba code to email the usedrange of an excel sheet.

My vba code works but, although trivial, the bottom border of the last cells isn't copied.

is it possible to modify the below to be the "Usedrange" + 1 row to grab the bottom border?

Set rng = ActiveSheet.UsedRange

thanks,
Mike

 

[mikerickson]

With ActiveSheet.UsedRange
    Set rng = Range(.Cells, .Offset(1,0)
End With

or

With ActiveSheet.UsedRange
    Set rng= .Resize(.Rows.Count + 1, .Columns.Count)
End With

 

[teatimecrumpet]

Hi Mike,

Thanks for the reply! Turns out it was just a bug(?). Exiting and booting outlook made the original code work...


But thanks for those two pieces of code which will probably be useful down the line.