Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。 A列 B列 C列 商品名 商品番号 コード モータ U-1325-L ホルダ R-134256 また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。 やりたいことは 部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。 部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。 自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル（B列のコード）の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが… Sub 別ブックから貼り付ける() Dim 検索する As Long Windows("部品表.xls").Acti