On Mon, 10 Aug 2009 00:48:01 -0700, Sam Wilson
wrote:

sub test()

dim i as integer


with range("A2")
for i = 0 to 3
.offset(i,3).value = .offset(i,0).value
.offset(i+5,3).value = .offset(i,1).value
next i
.offset(4,3).value = "*"
end with


end sub

Thank you! Will give this a try later today. :oD

"StargateFan" wrote:

On Sun, 09 Aug 2009 22:33:29 -0500, StargateFan
wrote:

Is there a way to change this input:

twenty four Number of hours for earth to rotate around its axis.
laser Monochromatic light
proton Positively charged particle of an atom.
acceleration Force equals mass times ____________.




To this format which can then be picked up by a program?

twenty four
laser
proton
acceleration
*
Number of hours for earth to rotate around its axis.
Monochromatic light
Positively charged particle of an atom.
Force equals mass times ____________.

[snip]

Oops, forgot to mention that row A is a header row. Sorry. <g