Help with Code

[Guest]

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

 

[Bob Phillips]

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)

 

[Guest]

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]

We're paid with love <vbg>

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

Bob