If you give the cells that contain the headers specific range names you
could refer to the other cells using the form

Dim CellVal as Long
CellVal = Cells(Range("Week").Row+1,Range("ColEnd").Column). value

In this case the +1 is the row offset for week 1

Or you could use "Offset" - by selecting the cell containing "Week" the
ColEnd for week 1 becomes

Dim CellVal as Long
Range("Week").Select
ActiveCell.Offset(1,2).Value

However be careful if you start to insert new rows or columns

Goofy wrote:
Is it possible to set up column heads for a named range and refer to them
programatically. For example.


Week ColStart ColEnd
1 4 19
2 1 16
3 2 18


Something like . . . . .

Range.cells( 1, Range.ColStart)

???