| 
    
     |  | >neptune さん 
 neptuneさんの言うとおり、見直してみました。
 そして最初のopenの箇所は修正致しました。
 Dim i As Integer, k As Integer
 Dim ws3 As Object
 
 ChDir "C:\Documents and Settings\デスクトップ"
 Workbooks.Open Filename:= _
 "C:\Documents and Settings\デスクトップ\hoge.xls", UpdateLinks:=0
 
 ChDir "C:\Documents and Settings\デスクトップ"
 Workbooks.Open Filename:= _
 "C:\Documents and Settings\デスクトップ\hogehoge.xls", UpdateLinks:=0
 
 しかし、やはりその下のコードが起動しません。
 さっぱり分かりません。
 With Activesheetがws1に効いているから、
 ws2やws3を見に行かないのでしょうか?
 
 
 >▼すず さん:
 >こんにちは
 >
 >>コード自体が間違っているのでしょうか?
 >恐らくそう思います。
 >もう一度自分が何をしているかを考えてみたほうが良いです。
 >コードの一行一行を理解することをお勧めします。
 
 |  |