Macro to add in straight lines every so many rows? (not boarders)

[tonywatsonhelp]

Hi Everyone,
I need a macro that can do this of me,
when run open a message box saying "Every ? Rows" then i answer 1 or 2 or 3 ect.

the macro runs on the selected range
and starting with the first row adds A strainge line between the start column and the end column that is width 0.25pt and colour rgb 250,150,50
so i end up with a row of lines every two rows for example,

if you just do the top part of the row thats great,
this cannot be done with boarders must be lines from the shapes options

please help if you can


thanks

Tony