vba マクロの組み立て不能

毎度お世話になります。
Sub 呼び込み()
ChDir "C:\08-C\9\1k-1\m\"
Dim c1 As Variant
Dim ran1 As Range
Set ran1 = Range("ad16: ad40") '<----- Windows("SW.xls").ActiveSheet 記録前の削除
ran1.Delete Shift:=xlShiftToLeft
For i = 1 To 10 '<----- 実際には10から20です。
Workbooks.Open Filename:=ThisWorkbook.ActiveSheet.Cells(i + 10, "A") & ".xls", UpdateLinks:=3
Windows("SW.xls").Activate
With Windows("SW.xls").ActiveSheet
c1 = Cells(i + 10, "A")
.Cells(i + 15, 30).Formula = "Windows" & "(" & Chr$(34) & c1 & ".xls" & Chr$(34) & ").Activate"
' 出来上がり例 Windows("出来高.xls").Activate　とかWindows("1334.xls").Activate　　
End With
Next i
End Sub
'Sub 呼び込み() した後に時間をおいて保存に移りたいのですが　Range("ad16")よりの書き込みにを
'利用して保存をしたいのです。　例＞　Windows("出来高移動平均.xls").Activate

Sub 保存()
Range("AD17").Select
Application.CutCopyMode = False
Selection.Copy
' 実際には此処に挿入したいがマクロ組み立て不能です。
Windows("出来高.xls").Activate '<----- 実際には此処に挿入したいがマクロ組み立て不能です。
ActiveWorkbook.Save: ActiveWindow.Close
End Sub

No.1 ベストアンサー 回答者： xls88 回答日時： 2008/12/31 22:45

Sub 呼び込み()

の
.Cells(i + 15, 30).Formula = "Windows" & "(" & Chr$(34) & c1 & ".xls" & Chr$(34) & ").Activate"
は
.Cells(i + 15, 30).Formula = c1 & ".xls"
ぐらいにして
Sub 保存()
の
Windows("出来高.xls").Activate
を
For i = 1 To 10
With Windows("SW.xls").ActiveSheet
　　Windows(.Cells(i + 15, 30).Value).Activate
End With
Next i
と、いうような感じでしょうか。
イマイチ良く分かりません。

この回答へのお礼

毎度　xls88さん　有難うございました。
年末の忙しい中感謝しています。

イマイチ良く分かりません。＜＜＜--- 此れはウソです何故ならば
完璧に動作しましたから。
此れでお礼の言葉とさせて頂きます。

お礼日時：2009/01/01 08:33