複数ファイルを１つのファイルにシート別にコピーするプログラムがあります。
反復の中で、各シートの『B5』セルに入力されている文字列をシートの名前にしたいと思っているのですが、
ネット上でも、シートの名前の変更についての情報が調べきれませんでした。

反復及び、シート名の変更を行うには、どのようなプログラムにしたらよろしいのでしょうか？


#-----------------------------------------------------------------------
# Excel のブックを１つにまとめる
#-----------------------------------------------------------------------
対象パス＝フォルダ選択。
　　保存ファイル名＝「{母艦パス}\結果.xlsx」
#-----------------------------------------------------------------------
　　もし、対象パス＝空ならば、終わる。
　　母艦を最小化。
　　エクセル起動。
　　エクセル新規ブック
　　対象パス＆「*.xlsx」の全ファイル列挙
　　反復
　　　　対象をエクセル開く。
　　　　F＝対象のファイル名抽出
　　　　エクセルシート列挙
　　　　反復
　　　　　　母艦＝「{F}:{対象}」
　　　　　　２のエクセルブック注目
　　　　　　対象のエクセルシート注目
　　　　　　「A:O」をエクセル選択
　　　　　　エクセルコピー
　　　　　　１のエクセルブック注目
　　　　　　エクセル新規シート
　　　　　　エクセル貼り付け
　　　　　　「A9:I100」のエクセル列削除
　　　　　　「G:I」のエクセル列削除
＃ここから
　　　　　　「B5」をエクセルセル取得
　　　　　　「Sheet*」を「B5」にシート名変更
＃ここまでを追記したのですが、エラーが出てしまいます。

　　　　　1秒待つ　　　　　　　　　　
　　　　２のエクセルブック注目
　　　　クリップボード＝「」
　　　　エクセルブック非保存閉じる　　　
　　
　　　　１秒待つ
　　１のエクセルブック注目
　　保存ファイル名へエクセル保存
　　エクセル終了
　　終わる。
#----------------------------------------------------------------------- 

ご指導、宜しくお願い致します。