マクロを実行すると、エラーにならずに、じりじり音がしてしまう

質問

EXCEL2002です。（セキュリティは低です）
いままで、問題なく実行できてたんですが、このような現象は始めてです。
他のマクロは問題なく、実行できておりますが、このマクロだけがおかしいんです。

問題内容の経緯
１、　最初の　1回　の実行時、下記の線で挟まれた部分だけが、エラーで反転された。
２、　次に、VBの画面だけを閉じて、再度実行しましたら、今度はエラーにならずに、その後は何度実行しても、「　じりじり音　」　がしてしまうだけで、休止してるような状態です。（フリーズはしません）
３、　休止して動かないが、マウスは動きますので、EXCELを閉じますと、
　　　「　このプログラムに応答はありません　」　の画面表示されますので、「　すぐに終了　」　ボタンで、終了した。
４、　PCを再起動して、何度再実行しましたが、エラーにはならずに「２～３」の繰り返しで、全く変わらない状態です。

自身で気が付くことは、最近、マイドキュメントに、PDFファイル等を100Mぐらい、保存したぐらいですが。
他には、フリーソフト等を試しにインストールし使用しました。

以上　よろしくお願い致します。

For i = 1 To .FoundFiles.Count
'見つかった　「　*.csvファイル　」　を一つずつ開く
-----------------------
Workbooks.OpenText Filename:=.FoundFiles(i), _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Comma:=True
------------------------
'ああ.xlsブックに移動
Sheets(1).Move after:=Workbooks("ああ.xls").Worksheets(Workbooks("ああ.xls").Sheets.Count)
Next i

回答No.1

imogasi

Sub test01()
With Application.FileSearch
.LookIn = "C:\Documents and Settings\XXXX\My Documents"
' .FileType = msoFileTypeExcelWorkbooks
.FileType = msoFileTypeAllFiles
.Filename = "*.csv"
.Execute
End With
Dim i As Integer
With Application.FileSearch
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Workbooks.OpenText Filename:=.FoundFiles(i), _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Comma:=True
'----
n = Workbooks("CSV集約.xls").Sheets.Count
MsgBox n
ActiveWorkbook.Sheets(1).Move after:=Workbooks("CSV集約.xls").Worksheets(n)
Next i
End With
End Sub
を標準モジュールに貼り付ける。
フォルダーの部分を自分のケースに合わせる。
CSV集約.xlsで保存。
再度CSV集約.xlsを読み込んで、実行。
私の場合はうまく行ったようですが、うまくいくでしょうか。
うまくいった場合は、質問のコードと比べて検討してみてください。
ーー
うまくいかない場合は、回答が不適切だと思うので、本件は無視してください。

お礼

ご回答誠に有難うございました。