I would think that there would be a rule that the first column couldn't be empty
either.

If that's true:

Dim LastRow as long
dim LastCol as long
dim myDBRng as Range

with worksheets("somesheetnamehere")
lastrow = .cells(.rows.count,"A").end(xlup).row
lastcol = .cells(1, .columns.count).end(xltoleft).column
set myDBRng = .range("A1",.cells(lastrow,lastcol))
end with

'do something with the myDBRng

dbKemp wrote:

I am creating an addin that works with user created 'databases'.

Assume there is a 'database' that looks something like:

Name | Phone | Address | City | State
Dave | | | |
Thom | | | |
Mary | | | |
Joe | | | |
Beth | | | |
Sue |12345 | Home |Town |NY

It can be anywhere on a given worksheet, the only requirement is that
is have no blanks in the first row.
The 'database' is user created so the code doesn't know how many
columns or rows, or where the upper left corner is.

When the user clicks on a cell within the bounds of the 'database' and
then clicks on a menu button provided by the addin, some action is
taken on the database.

When the database is not sparse using activecell.currentregion works
fine. When the 'database' is sparse activecell.currentregion doesn't
work. e.g. user clicked on Mary's Address above.

Any suggestions on how to define the database (CurrentRegion) with
sparse data?

--

Dave Peterson