I have this macro to assign rows with data headers to the variable HderRows
- I want to return HderRows as a Row number or Cell though can't get it to
work..missing something here about Object variables or something.
- Not sure why Dim HderRows () doesn't allow empty parenthesis. Understand
this should give a variable array (though 15 is a reasonable max anyway).

Thanks

M.

Dim HderRows(15) As String
NoHderRows = 1
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(CntMon + 5, 0).Select
Loop
NoHderRows = NoHderRows - 1

'Defines HeaderRows
Range("B3").Select
For j = 1 To NoHderRows
HderRows(j) = ActiveCell.Value
ActiveCell.Offset(CntMon + 5, 0).Select
Next j