I am missing something fundamental here, but I am new to this..
It should be returning the Row No. every 7th but only returns 7, 7, 7...

Dim HderRows(1 To 5) As String
Range("B3").Select

For n = 1 To 5
HderRows(n) = ActiveCell.Offset(7, 0).Row
Next n

Also, an 'operational' question, is there a quick way to reset a sub while
de-bugging? The highlighted error tends remain even after a fix. Again,
probably missed something easy here

Thanks

M.