全シート検索して集計シートに集まる

大量のメールの中で重要なメールをエクセルの
シートに貼りつけて保存して、キーワードで
関連情報を抜き出す時に使ってました。

あるDir下の全ワード、エクセル、他ファイル
を全てオープンして、キーワードにヒットした
前後10行を一覧表示するのを作ってましたが
やり方忘れてしまいました(^^;;

vbaで試してないので、本当に適当なメモ書き
です、あとで一度整理して完成品をあげたいです

option explicit

dim sh as worksheet
dim i , j as long
dim keycode as string

keycode = "hoge"

for each sh in worksheets
if sh.name <> "集計" then

 for i = 1 to 100
     for j = 1 to 100
        if instr(sh.range(i,j).value,keycode )  <> 0 then

           worksheets("集計").range(current,5) = sh.range(i,j).value

同上で、.font.size = 14
同上で、.interior.color= rgb(255,0,0)
.colorindex = 20

前後5行を設定する

      current += 10
     next j
  next i

endif
next