Don, your solution works well, but I would also like to assign the range to
a global variable for use in other macros.

I've tried several things (inside and outside the with clause) without
success. the latest being
'
'
'.Range(.Cells(3, "a"), .Cells(lr, 15)).Select
end with
ActiveData = ActiveSheet.Range(Cells(3, "a"), Cells(lr, 15))
end sub

tried ActiveData dim as range and as variant

Thanks again

"Don Guillett" wrote in message
...
Glad to help.

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
maybe

Sub selactivedata()
With ActiveSheet
lr = Application.Max(3, .Cells(.Rows.Count, "a").End(xlUp).Row)
.Range(.Cells(3, "a"), .Cells(lr, 14)).Select
End With
End Sub

--
Don Guillett
SalesAid Software

"Dave B" wrote in message
...
I have a workbook with 2 sheets. Both sheets contain a sparce matrix of
data in which the Column Title row and the first column are the only
gauranteed row and column to be filled. I want to select the entire
sparse matrix.

The code below correctly selects the sparse matrix on one sheet, but
when I switch to the 2nd sheet it selects only the 1st row of the
matrix.

Any help would be appreciated.

Option Explicit
Dim TopCell, LstRow, LstCol, LstCell, ActiveData As Range

Sub SelActiveData()
Dim NumCol As Integer
ActiveSheet.Select
'
' Selects active data whe
' TopCell is left most cell of column title row
'
NumCol = 14
Set TopCell = ActiveSheet.Range("A2")
Set LstRow = TopCell.End(xlDown)
Set LstCell = LstRow.Offset(0, NumCol)
Set ActiveData = _
ActiveSheet.Range(TopCell.Offset(1, 0), LstCell)
ActiveData.Select

End Sub