Excelファイル連続置換vba

Excelで複数の文字列を一気に置換するvbaを教えていただけないでしょうか。 Book2の置換リストをBook1のSheet1に完全一致で置換したいのです。 Book1.xlsx：元ファイル Book2.xlsx：置換リスト ※下記のような配列 A列　B列 １　01_1 ２　02_2 ３　03_3 ４　04_4 以上です。 よろしくお願いいたします。