Windows7環境でVisualBasic6.0を用い、Excelシート操作しています。
以下の様にCOPY&PASTEする際、COPY元のセルに数式が入っている場合、
貼付け先のシートセルに形式を指定して貼付けしたいのですが、
式がそのまま貼り付けられ、貼り付け先の該当しないセルを用いた
計算が行なわれます。
貼付け元のセルで演算した値のみ、貼り付け先のシートセルに
貼りつけする方法は無いでしょうか。

図表を貼りつける方法等は他の方の問合せを拝見し参考にさせて頂きましたが、
今回の様な場合、どの様に使用したらよいか理解できませんでした。

アドバイス頂けたら幸いです。

xlSheet0.Activate
xlSheet0.Cells(1,1).Copy
xlSheet10.Activate
xlSheet10.Cells(1,1).Select
xlSheet10.Paste

> 貼付け元のセルで演算した値のみ、貼り付け先のシートセルに
> 貼りつけする方法は無いでしょうか。
値を複写するだけならば、Activate 等で切り替えたりする必要も無く、
　xlSheet10.Cells(1, 1).Value = xlSheet0.Cells(1, 1).Value
の一行だけで良いのでは?


> 貼付け先のシートセルに形式を指定して貼付けしたいのですが、
「形式を指定して貼り付け」を使うのであれば、xlSheet10.Paste ではなく
　　xlSheet10.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
という感じで。

> > 貼付け元のセルで演算した値のみ、貼り付け先のシートセルに
> > 貼りつけする方法は無いでしょうか。
> 値を複写するだけならば、Activate 等で切り替えたりする必要も無く、
> 　xlSheet10.Cells(1, 1).Value = xlSheet0.Cells(1, 1).Value
> の一行だけで良いのでは?
>
>
> > 貼付け先のシートセルに形式を指定して貼付けしたいのですが、
> 「形式を指定して貼り付け」を使うのであれば、xlSheet10.Paste ではなく
> 　　xlSheet10.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
> という感じで。

魔界の仮面弁士様、大変助かりました。
PasteSpecialを用いて思っている通りにCOPY & PASTE出来ました。
有難う御座いました。