I looking for a routine that from a given staring point will copy the
selected cell and 9 cells to the right and then PasteSpecial the Values.
Then go down 10 rows and repeat the routine until there is no data/formulas.

Thank-You

Do
With Activecell.Resize(,9)
.Value = .Value
End With
Activecell.Offset(10,0).Select
Loop Until Activecell.Value = ""

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Ronbo" wrote in message
...
I looking for a routine that from a given staring point will copy the
selected cell and 9 cells to the right and then PasteSpecial the Values.
Then go down 10 rows and repeat the routine until there is no
data/formulas.

Thank-You

Perfect. As always, thanks a lot for your time and help. I am even more
grateful for your's and the other gurus help after reading a message
recently, that I believe you wrote, stating that none of you work for MS but
do this on your own. With the knowledge and time put into this by the gurus,
a assumed you were getting paid by MS. You should be. Again, thanks.

"Bob Phillips" wrote:

Do
With Activecell.Resize(,9)
.Value = .Value
End With
Activecell.Offset(10,0).Select
Loop Until Activecell.Value = ""

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Ronbo" wrote in message
...
I looking for a routine that from a given staring point will copy the
selected cell and 9 cells to the right and then PasteSpecial the Values.
Then go down 10 rows and repeat the routine until there is no
data/formulas.

Thank-You

We're paid with love <vbg

Thanks for the thanks, that is what makes it worthwhile.

Bob

"Ronbo" wrote in message
...
Perfect. As always, thanks a lot for your time and help. I am even more
grateful for your's and the other gurus help after reading a message
recently, that I believe you wrote, stating that none of you work for MS
but
do this on your own. With the knowledge and time put into this by the
gurus,
a assumed you were getting paid by MS. You should be. Again, thanks.

"Bob Phillips" wrote:

Do
With Activecell.Resize(,9)
.Value = .Value
End With
Activecell.Offset(10,0).Select
Loop Until Activecell.Value = ""

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Ronbo" wrote in message
...
I looking for a routine that from a given staring point will copy the
selected cell and 9 cells to the right and then PasteSpecial the
Values.
Then go down 10 rows and repeat the routine until there is no
data/formulas.

Thank-You