Function still isn't working???

Hi Tim,

Your code looks fine. The only possible reason that I can see for your code not working is that CurrentRegion is yielding a range that you are not expecting. This can happen several ways:

1. your table is not surrounded by truly empty cells. Don't forget that even a cell that contains a blank (and thus looks empty) is not truly empty and CurrentRegion will have to expand to contain it.

2. your table contains an empty row or column. This will cause CurrentRegion to not include the rows or columns on the other side of the empty row or column.

3. the range of your table includes hidden rows or columns that are empty.

Here is a simple way to find out what is going wrong. Paste the following macro into a macro module:

Sub SelectCurrentRegion()
ActiveCell.CurrentRegion.Select
End Sub

Then tie a button or a shortcut keystroke to this macro so you can execute it easily.

Now just select a cell on your worksheet (start with G10) and run the macro. The CurrentRegion range will be selected so that you can now see what it is. I am sure you will find that either more than your table is getting selected, or only part of it.

Happy computing.

Damon

I think currentregion is one of those functions
that does not work within a function similar
to some specailcell types.
Heres a work around;

Set r = Range(Range("g10").End(xlToRight), Range("G10").End(xlDown))

As the current region is effectively oing the same.

Ivan