【福井】恐喝まがい値切りこゆママキャラ弁★22 【K5発狂】

1：番組の途中ですが名無しです：2011/02/13(日) 11:56:35 ID:HYTmQplk: 以上、誰も書き込まない糞スレでした
2：番組の途中ですが名無しです：2012/03/16(金) 14:53:07 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
3：番組の途中ですが名無しです：2012/03/16(金) 14:53:44 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
4：番組の途中ですが名無しです：2012/03/16(金) 14:54:16 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
5：番組の途中ですが名無しです：2012/03/16(金) 14:54:51 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
6：番組の途中ですが名無しです：2012/03/16(金) 14:55:23 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
7：番組の途中ですが名無しです：2012/03/16(金) 14:55:56 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
8：番組の途中ですが名無しです：2012/03/16(金) 14:56:28 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
9：番組の途中ですが名無しです：2012/03/16(金) 14:56:59 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
10：番組の途中ですが名無しです：2012/03/16(金) 14:57:29 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
11：番組の途中ですが名無しです：2012/03/16(金) 14:58:00 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
12：番組の途中ですが名無しです：2012/03/16(金) 14:58:32 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
13：番組の途中ですが名無しです：2012/03/16(金) 14:59:04 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
14：番組の途中ですが名無しです：2012/03/16(金) 14:59:35 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
15：番組の途中ですが名無しです：2012/03/16(金) 15:00:08 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
16：番組の途中ですが名無しです：2012/03/16(金) 15:00:39 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
17：番組の途中ですが名無しです：2012/03/16(金) 15:01:12 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
18：番組の途中ですが名無しです：2012/03/16(金) 15:01:44 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
19：番組の途中ですが名無しです：2012/03/16(金) 15:02:16 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
20：番組の途中ですが名無しです：2012/03/16(金) 15:02:48 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
21：番組の途中ですが名無しです：2012/03/16(金) 15:03:19 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
22：番組の途中ですが名無しです：2012/03/16(金) 15:03:50 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
23：番組の途中ですが名無しです：2012/03/16(金) 15:04:22 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
24：番組の途中ですが名無しです：2012/03/16(金) 15:04:55 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
25：番組の途中ですが名無しです：2012/03/16(金) 15:05:26 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
26：番組の途中ですが名無しです：2012/03/16(金) 15:05:58 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
27：番組の途中ですが名無しです：2012/03/16(金) 15:06:30 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
28：番組の途中ですが名無しです：2012/03/16(金) 15:07:02 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
29：番組の途中ですが名無しです：2012/03/16(金) 15:07:34 ID:gS1wqBrk: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
30：番組の途中ですが名無しです：2012/03/16(金) 15:08:07 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
31：番組の途中ですが名無しです：2012/03/16(金) 15:08:40 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
32：番組の途中ですが名無しです：2012/03/16(金) 15:09:11 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
33：番組の途中ですが名無しです：2012/03/16(金) 15:09:42 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
34：番組の途中ですが名無しです：2012/03/16(金) 15:10:13 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
35：番組の途中ですが名無しです：2012/03/16(金) 15:10:44 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
36：番組の途中ですが名無しです：2012/03/16(金) 15:11:15 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
37：番組の途中ですが名無しです：2012/03/16(金) 15:11:47 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
38：番組の途中ですが名無しです：2012/03/16(金) 15:12:18 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
39：番組の途中ですが名無しです：2012/03/16(金) 15:12:49 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
40：番組の途中ですが名無しです：2012/03/16(金) 15:13:20 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
41：番組の途中ですが名無しです：2012/03/16(金) 15:13:51 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
42：番組の途中ですが名無しです：2012/03/16(金) 15:14:23 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
43：番組の途中ですが名無しです：2012/03/16(金) 15:14:57 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
44：番組の途中ですが名無しです：2012/03/16(金) 15:15:30 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
45：番組の途中ですが名無しです：2012/03/16(金) 15:16:01 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
46：番組の途中ですが名無しです：2012/03/16(金) 15:16:33 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
47：番組の途中ですが名無しです：2012/03/16(金) 15:17:05 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
48：番組の途中ですが名無しです：2012/03/16(金) 15:17:37 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
49：番組の途中ですが名無しです：2012/03/16(金) 15:18:10 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
50：番組の途中ですが名無しです：2012/03/16(金) 15:18:42 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
51：番組の途中ですが名無しです：2012/03/16(金) 15:19:15 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
52：番組の途中ですが名無しです：2012/03/16(金) 15:19:47 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
53：番組の途中ですが名無しです：2012/03/16(金) 15:20:19 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
54：番組の途中ですが名無しです：2012/03/16(金) 15:20:51 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
55：番組の途中ですが名無しです：2012/03/16(金) 15:21:22 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
56：番組の途中ですが名無しです：2012/03/16(金) 15:21:54 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
57：番組の途中ですが名無しです：2012/03/16(金) 15:22:26 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
58：番組の途中ですが名無しです：2012/03/16(金) 15:22:58 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
59：番組の途中ですが名無しです：2012/03/16(金) 15:23:31 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
60：番組の途中ですが名無しです：2012/03/16(金) 15:24:03 ID:0zB3bjfs: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
61：番組の途中ですが名無しです：2012/03/16(金) 15:25:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
62：番組の途中ですが名無しです：2012/03/16(金) 15:25:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
63：番組の途中ですが名無しです：2012/03/16(金) 15:26:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
64：番組の途中ですが名無しです：2012/03/16(金) 15:26:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
65：番組の途中ですが名無しです：2012/03/16(金) 15:27:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
66：番組の途中ですが名無しです：2012/03/16(金) 15:27:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
67：番組の途中ですが名無しです：2012/03/16(金) 15:28:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
68：番組の途中ですが名無しです：2012/03/16(金) 15:28:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
69：番組の途中ですが名無しです：2012/03/16(金) 15:29:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
70：番組の途中ですが名無しです：2012/03/16(金) 15:29:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
71：番組の途中ですが名無しです：2012/03/16(金) 15:30:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
72：番組の途中ですが名無しです：2012/03/16(金) 15:30:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
73：番組の途中ですが名無しです：2012/03/16(金) 15:31:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
74：番組の途中ですが名無しです：2012/03/16(金) 15:31:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
75：番組の途中ですが名無しです：2012/03/16(金) 15:32:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
76：番組の途中ですが名無しです：2012/03/16(金) 15:33:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
77：番組の途中ですが名無しです：2012/03/16(金) 15:33:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
78：番組の途中ですが名無しです：2012/03/16(金) 15:34:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
79：番組の途中ですが名無しです：2012/03/16(金) 15:34:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
80：番組の途中ですが名無しです：2012/03/16(金) 15:35:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
81：番組の途中ですが名無しです：2012/03/16(金) 15:35:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
82：番組の途中ですが名無しです：2012/03/16(金) 15:36:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
83：番組の途中ですが名無しです：2012/03/16(金) 15:36:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
84：番組の途中ですが名無しです：2012/03/16(金) 15:37:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
85：番組の途中ですが名無しです：2012/03/16(金) 15:37:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
86：番組の途中ですが名無しです：2012/03/16(金) 15:38:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
87：番組の途中ですが名無しです：2012/03/16(金) 15:38:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
88：番組の途中ですが名無しです：2012/03/16(金) 15:39:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
89：番組の途中ですが名無しです：2012/03/16(金) 15:39:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
90：番組の途中ですが名無しです：2012/03/16(金) 15:40:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
91：番組の途中ですが名無しです：2012/03/16(金) 15:40:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
92：番組の途中ですが名無しです：2012/03/16(金) 15:41:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
93：番組の途中ですが名無しです：2012/03/16(金) 15:41:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
94：番組の途中ですが名無しです：2012/03/16(金) 15:42:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
95：番組の途中ですが名無しです：2012/03/16(金) 15:42:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
96：番組の途中ですが名無しです：2012/03/16(金) 15:43:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
97：番組の途中ですが名無しです：2012/03/16(金) 15:44:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
98：番組の途中ですが名無しです：2012/03/16(金) 15:44:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
99：番組の途中ですが名無しです：2012/03/16(金) 15:45:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
100：番組の途中ですが名無しです：2012/03/16(金) 15:45:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
101：番組の途中ですが名無しです：2012/03/16(金) 15:46:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
102：番組の途中ですが名無しです：2012/03/16(金) 15:46:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
103：番組の途中ですが名無しです：2012/03/16(金) 15:47:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
104：番組の途中ですが名無しです：2012/03/16(金) 15:47:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
105：番組の途中ですが名無しです：2012/03/16(金) 15:48:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
106：番組の途中ですが名無しです：2012/03/16(金) 15:48:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
107：番組の途中ですが名無しです：2012/03/16(金) 15:49:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
108：番組の途中ですが名無しです：2012/03/16(金) 15:49:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
109：番組の途中ですが名無しです：2012/03/16(金) 15:50:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
110：番組の途中ですが名無しです：2012/03/16(金) 15:51:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
111：番組の途中ですが名無しです：2012/03/16(金) 15:51:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
112：番組の途中ですが名無しです：2012/03/16(金) 15:52:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
113：番組の途中ですが名無しです：2012/03/16(金) 15:52:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
114：番組の途中ですが名無しです：2012/03/16(金) 15:53:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
115：番組の途中ですが名無しです：2012/03/16(金) 15:53:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
116：番組の途中ですが名無しです：2012/03/16(金) 15:54:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
117：番組の途中ですが名無しです：2012/03/16(金) 15:54:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
118：番組の途中ですが名無しです：2012/03/16(金) 15:55:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
119：番組の途中ですが名無しです：2012/03/16(金) 15:55:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
120：番組の途中ですが名無しです：2012/03/16(金) 15:56:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
121：番組の途中ですが名無しです：2012/03/16(金) 15:57:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
122：番組の途中ですが名無しです：2012/03/16(金) 15:57:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
123：番組の途中ですが名無しです：2012/03/16(金) 15:58:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
124：番組の途中ですが名無しです：2012/03/16(金) 15:58:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
125：番組の途中ですが名無しです：2012/03/16(金) 15:59:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
126：番組の途中ですが名無しです：2012/03/16(金) 15:59:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
127：番組の途中ですが名無しです：2012/03/16(金) 16:00:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
128：番組の途中ですが名無しです：2012/03/16(金) 16:00:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
129：番組の途中ですが名無しです：2012/03/16(金) 16:01:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
130：番組の途中ですが名無しです：2012/03/16(金) 16:01:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
131：番組の途中ですが名無しです：2012/03/16(金) 16:02:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
132：番組の途中ですが名無しです：2012/03/16(金) 16:02:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
133：番組の途中ですが名無しです：2012/03/16(金) 16:03:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
134：番組の途中ですが名無しです：2012/03/16(金) 16:03:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
135：番組の途中ですが名無しです：2012/03/16(金) 16:04:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
136：番組の途中ですが名無しです：2012/03/16(金) 16:04:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
137：番組の途中ですが名無しです：2012/03/16(金) 16:05:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
138：番組の途中ですが名無しです：2012/03/16(金) 16:05:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
139：番組の途中ですが名無しです：2012/03/16(金) 16:06:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
140：番組の途中ですが名無しです：2012/03/16(金) 16:07:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
141：番組の途中ですが名無しです：2012/03/16(金) 16:07:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
142：番組の途中ですが名無しです：2012/03/16(金) 16:08:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
143：番組の途中ですが名無しです：2012/03/16(金) 16:08:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
144：番組の途中ですが名無しです：2012/03/16(金) 16:09:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
145：番組の途中ですが名無しです：2012/03/16(金) 16:09:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
146：番組の途中ですが名無しです：2012/03/16(金) 16:10:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
147：番組の途中ですが名無しです：2012/03/16(金) 16:10:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
148：番組の途中ですが名無しです：2012/03/16(金) 16:11:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
149：番組の途中ですが名無しです：2012/03/16(金) 16:11:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
150：番組の途中ですが名無しです：2012/03/16(金) 16:12:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
151：番組の途中ですが名無しです：2012/03/16(金) 16:12:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
152：番組の途中ですが名無しです：2012/03/16(金) 16:13:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
153：番組の途中ですが名無しです：2012/03/16(金) 16:13:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
154：番組の途中ですが名無しです：2012/03/16(金) 16:14:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
155：番組の途中ですが名無しです：2012/03/16(金) 16:14:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
156：番組の途中ですが名無しです：2012/03/16(金) 16:15:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
157：番組の途中ですが名無しです：2012/03/16(金) 16:15:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
158：番組の途中ですが名無しです：2012/03/16(金) 16:16:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
159：番組の途中ですが名無しです：2012/03/16(金) 16:16:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
160：番組の途中ですが名無しです：2012/03/16(金) 16:17:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
161：番組の途中ですが名無しです：2012/03/16(金) 16:18:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
162：番組の途中ですが名無しです：2012/03/16(金) 16:18:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
163：番組の途中ですが名無しです：2012/03/16(金) 16:19:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
164：番組の途中ですが名無しです：2012/03/16(金) 16:19:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
165：番組の途中ですが名無しです：2012/03/16(金) 16:20:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
166：番組の途中ですが名無しです：2012/03/16(金) 16:20:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
167：番組の途中ですが名無しです：2012/03/16(金) 16:21:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
168：番組の途中ですが名無しです：2012/03/16(金) 16:21:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
169：番組の途中ですが名無しです：2012/03/16(金) 16:22:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
170：番組の途中ですが名無しです：2012/03/16(金) 16:22:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
171：番組の途中ですが名無しです：2012/03/16(金) 16:23:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
172：番組の途中ですが名無しです：2012/03/16(金) 16:23:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
173：番組の途中ですが名無しです：2012/03/16(金) 16:24:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
174：番組の途中ですが名無しです：2012/03/16(金) 16:24:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
175：番組の途中ですが名無しです：2012/03/16(金) 16:25:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
176：番組の途中ですが名無しです：2012/03/16(金) 16:25:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
177：番組の途中ですが名無しです：2012/03/16(金) 16:26:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
178：番組の途中ですが名無しです：2012/03/16(金) 16:26:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
179：番組の途中ですが名無しです：2012/03/16(金) 16:27:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
180：番組の途中ですが名無しです：2012/03/16(金) 16:27:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
181：番組の途中ですが名無しです：2012/03/16(金) 16:28:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
182：番組の途中ですが名無しです：2012/03/16(金) 16:28:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
183：番組の途中ですが名無しです：2012/03/16(金) 16:29:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
184：番組の途中ですが名無しです：2012/03/16(金) 16:30:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
185：番組の途中ですが名無しです：2012/03/16(金) 16:30:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
186：番組の途中ですが名無しです：2012/03/16(金) 16:31:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
187：番組の途中ですが名無しです：2012/03/16(金) 16:31:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
188：番組の途中ですが名無しです：2012/03/16(金) 16:32:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
189：番組の途中ですが名無しです：2012/03/16(金) 16:32:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
190：番組の途中ですが名無しです：2012/03/16(金) 16:33:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
191：番組の途中ですが名無しです：2012/03/16(金) 16:33:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
192：番組の途中ですが名無しです：2012/03/16(金) 16:34:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
193：番組の途中ですが名無しです：2012/03/16(金) 16:34:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
194：番組の途中ですが名無しです：2012/03/16(金) 16:35:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
195：番組の途中ですが名無しです：2012/03/16(金) 16:35:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
196：番組の途中ですが名無しです：2012/03/16(金) 16:36:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
197：番組の途中ですが名無しです：2012/03/16(金) 16:36:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
198：番組の途中ですが名無しです：2012/03/16(金) 16:37:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
199：番組の途中ですが名無しです：2012/03/16(金) 16:37:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
200：番組の途中ですが名無しです：2012/03/16(金) 16:38:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
201：番組の途中ですが名無しです：2012/03/16(金) 16:39:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
202：番組の途中ですが名無しです：2012/03/16(金) 16:39:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
203：番組の途中ですが名無しです：2012/03/16(金) 16:40:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
204：番組の途中ですが名無しです：2012/03/16(金) 16:40:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
205：番組の途中ですが名無しです：2012/03/16(金) 16:41:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
206：番組の途中ですが名無しです：2012/03/16(金) 16:41:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
207：番組の途中ですが名無しです：2012/03/16(金) 16:42:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
208：番組の途中ですが名無しです：2012/03/16(金) 16:42:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
209：番組の途中ですが名無しです：2012/03/16(金) 16:43:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
210：番組の途中ですが名無しです：2012/03/16(金) 16:43:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
211：番組の途中ですが名無しです：2012/03/16(金) 16:44:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
212：番組の途中ですが名無しです：2012/03/16(金) 16:44:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
213：番組の途中ですが名無しです：2012/03/16(金) 16:45:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
214：番組の途中ですが名無しです：2012/03/16(金) 16:45:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
215：番組の途中ですが名無しです：2012/03/16(金) 16:46:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
216：番組の途中ですが名無しです：2012/03/16(金) 16:46:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
217：番組の途中ですが名無しです：2012/03/16(金) 16:47:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
218：番組の途中ですが名無しです：2012/03/16(金) 16:47:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
219：番組の途中ですが名無しです：2012/03/16(金) 16:48:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
220：番組の途中ですが名無しです：2012/03/16(金) 16:49:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
221：番組の途中ですが名無しです：2012/03/16(金) 16:49:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
222：番組の途中ですが名無しです：2012/03/16(金) 16:50:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
223：番組の途中ですが名無しです：2012/03/16(金) 16:50:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
224：番組の途中ですが名無しです：2012/03/16(金) 16:51:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
225：番組の途中ですが名無しです：2012/03/16(金) 16:51:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
226：番組の途中ですが名無しです：2012/03/16(金) 16:52:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
227：番組の途中ですが名無しです：2012/03/16(金) 16:52:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
228：番組の途中ですが名無しです：2012/03/16(金) 16:53:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
229：番組の途中ですが名無しです：2012/03/16(金) 16:53:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
230：番組の途中ですが名無しです：2012/03/16(金) 16:54:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
231：番組の途中ですが名無しです：2012/03/16(金) 16:54:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
232：番組の途中ですが名無しです：2012/03/16(金) 16:55:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
233：番組の途中ですが名無しです：2012/03/16(金) 16:55:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
234：番組の途中ですが名無しです：2012/03/16(金) 16:56:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
235：番組の途中ですが名無しです：2012/03/16(金) 16:56:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
236：番組の途中ですが名無しです：2012/03/16(金) 16:57:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
237：番組の途中ですが名無しです：2012/03/16(金) 16:57:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
238：番組の途中ですが名無しです：2012/03/16(金) 16:58:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
239：番組の途中ですが名無しです：2012/03/16(金) 16:58:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
240：番組の途中ですが名無しです：2012/03/16(金) 16:59:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
241：番組の途中ですが名無しです：2012/03/16(金) 17:00:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
242：番組の途中ですが名無しです：2012/03/16(金) 17:00:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
243：番組の途中ですが名無しです：2012/03/16(金) 17:01:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
244：番組の途中ですが名無しです：2012/03/16(金) 17:01:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
245：番組の途中ですが名無しです：2012/03/16(金) 17:02:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
246：番組の途中ですが名無しです：2012/03/16(金) 17:02:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
247：番組の途中ですが名無しです：2012/03/16(金) 17:03:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
248：番組の途中ですが名無しです：2012/03/16(金) 17:03:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
249：番組の途中ですが名無しです：2012/03/16(金) 17:04:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
250：番組の途中ですが名無しです：2012/03/16(金) 17:04:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
251：番組の途中ですが名無しです：2012/03/16(金) 17:05:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
252：番組の途中ですが名無しです：2012/03/16(金) 17:05:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
253：番組の途中ですが名無しです：2012/03/16(金) 17:06:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
254：番組の途中ですが名無しです：2012/03/16(金) 17:06:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
255：番組の途中ですが名無しです：2012/03/16(金) 17:07:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
256：番組の途中ですが名無しです：2012/03/16(金) 17:07:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
257：番組の途中ですが名無しです：2012/03/16(金) 17:08:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
258：番組の途中ですが名無しです：2012/03/16(金) 17:08:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
259：番組の途中ですが名無しです：2012/03/16(金) 17:09:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
260：番組の途中ですが名無しです：2012/03/16(金) 17:09:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
261：番組の途中ですが名無しです：2012/03/16(金) 17:10:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
262：番組の途中ですが名無しです：2012/03/16(金) 17:11:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
263：番組の途中ですが名無しです：2012/03/16(金) 17:11:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
264：番組の途中ですが名無しです：2012/03/16(金) 17:12:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
265：番組の途中ですが名無しです：2012/03/16(金) 17:12:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
266：番組の途中ですが名無しです：2012/03/16(金) 17:13:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
267：番組の途中ですが名無しです：2012/03/16(金) 17:13:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
268：番組の途中ですが名無しです：2012/03/16(金) 17:14:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
269：番組の途中ですが名無しです：2012/03/16(金) 17:14:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
270：番組の途中ですが名無しです：2012/03/16(金) 17:15:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
271：番組の途中ですが名無しです：2012/03/16(金) 17:15:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
272：番組の途中ですが名無しです：2012/03/16(金) 17:16:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
273：番組の途中ですが名無しです：2012/03/16(金) 17:16:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
274：番組の途中ですが名無しです：2012/03/16(金) 17:17:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
275：番組の途中ですが名無しです：2012/03/16(金) 17:17:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
276：番組の途中ですが名無しです：2012/03/16(金) 17:18:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
277：番組の途中ですが名無しです：2012/03/16(金) 17:18:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
278：番組の途中ですが名無しです：2012/03/16(金) 17:19:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
279：番組の途中ですが名無しです：2012/03/16(金) 17:19:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
280：番組の途中ですが名無しです：2012/03/16(金) 17:20:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
281：番組の途中ですが名無しです：2012/03/16(金) 17:21:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
282：番組の途中ですが名無しです：2012/03/16(金) 17:21:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
283：番組の途中ですが名無しです：2012/03/16(金) 17:22:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
284：番組の途中ですが名無しです：2012/03/16(金) 17:22:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
285：番組の途中ですが名無しです：2012/03/16(金) 17:23:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
286：番組の途中ですが名無しです：2012/03/16(金) 17:23:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
287：番組の途中ですが名無しです：2012/03/16(金) 17:24:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
288：番組の途中ですが名無しです：2012/03/16(金) 17:24:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
289：番組の途中ですが名無しです：2012/03/16(金) 17:25:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
290：番組の途中ですが名無しです：2012/03/16(金) 17:25:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
291：番組の途中ですが名無しです：2012/03/16(金) 17:26:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
292：番組の途中ですが名無しです：2012/03/16(金) 17:26:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
293：番組の途中ですが名無しです：2012/03/16(金) 17:27:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
294：番組の途中ですが名無しです：2012/03/16(金) 17:27:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
295：番組の途中ですが名無しです：2012/03/16(金) 17:28:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
296：番組の途中ですが名無しです：2012/03/16(金) 17:28:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
297：番組の途中ですが名無しです：2012/03/16(金) 17:29:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
298：番組の途中ですが名無しです：2012/03/16(金) 17:30:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
299：番組の途中ですが名無しです：2012/03/16(金) 17:30:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
300：番組の途中ですが名無しです：2012/03/16(金) 17:31:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
301：番組の途中ですが名無しです：2012/03/16(金) 17:31:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
302：番組の途中ですが名無しです：2012/03/16(金) 17:32:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
303：番組の途中ですが名無しです：2012/03/16(金) 17:32:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
304：番組の途中ですが名無しです：2012/03/16(金) 17:33:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
305：番組の途中ですが名無しです：2012/03/16(金) 17:33:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
306：番組の途中ですが名無しです：2012/03/16(金) 17:34:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
307：番組の途中ですが名無しです：2012/03/16(金) 17:34:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
308：番組の途中ですが名無しです：2012/03/16(金) 17:35:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
309：番組の途中ですが名無しです：2012/03/16(金) 17:35:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
310：番組の途中ですが名無しです：2012/03/16(金) 17:36:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
311：番組の途中ですが名無しです：2012/03/16(金) 17:36:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
312：番組の途中ですが名無しです：2012/03/16(金) 17:37:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
313：番組の途中ですが名無しです：2012/03/16(金) 17:37:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
314：番組の途中ですが名無しです：2012/03/16(金) 17:38:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
315：番組の途中ですが名無しです：2012/03/16(金) 17:38:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
316：番組の途中ですが名無しです：2012/03/16(金) 17:39:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
317：番組の途中ですが名無しです：2012/03/16(金) 17:40:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
318：番組の途中ですが名無しです：2012/03/16(金) 17:40:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
319：番組の途中ですが名無しです：2012/03/16(金) 17:41:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
320：番組の途中ですが名無しです：2012/03/16(金) 17:41:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
321：番組の途中ですが名無しです：2012/03/16(金) 17:42:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
322：番組の途中ですが名無しです：2012/03/16(金) 17:42:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
323：番組の途中ですが名無しです：2012/03/16(金) 17:43:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
324：番組の途中ですが名無しです：2012/03/16(金) 17:43:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
325：番組の途中ですが名無しです：2012/03/16(金) 17:44:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
326：番組の途中ですが名無しです：2012/03/16(金) 17:44:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
327：番組の途中ですが名無しです：2012/03/16(金) 17:45:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
328：番組の途中ですが名無しです：2012/03/16(金) 17:45:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
329：番組の途中ですが名無しです：2012/03/16(金) 17:46:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
330：番組の途中ですが名無しです：2012/03/16(金) 17:46:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
331：番組の途中ですが名無しです：2012/03/16(金) 17:47:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
332：番組の途中ですが名無しです：2012/03/16(金) 17:47:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
333：番組の途中ですが名無しです：2012/03/16(金) 17:48:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
334：番組の途中ですが名無しです：2012/03/16(金) 17:48:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
335：番組の途中ですが名無しです：2012/03/16(金) 17:49:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
336：番組の途中ですが名無しです：2012/03/16(金) 17:49:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
337：番組の途中ですが名無しです：2012/03/16(金) 17:50:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
338：番組の途中ですが名無しです：2012/03/16(金) 17:50:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
339：番組の途中ですが名無しです：2012/03/16(金) 17:51:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
340：番組の途中ですが名無しです：2012/03/16(金) 17:52:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
341：番組の途中ですが名無しです：2012/03/16(金) 17:52:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
342：番組の途中ですが名無しです：2012/03/16(金) 17:53:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
343：番組の途中ですが名無しです：2012/03/16(金) 17:53:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
344：番組の途中ですが名無しです：2012/03/16(金) 17:54:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
345：番組の途中ですが名無しです：2012/03/16(金) 17:54:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
346：番組の途中ですが名無しです：2012/03/16(金) 17:55:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
347：番組の途中ですが名無しです：2012/03/16(金) 17:55:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
348：番組の途中ですが名無しです：2012/03/16(金) 17:56:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
349：番組の途中ですが名無しです：2012/03/16(金) 17:56:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
350：番組の途中ですが名無しです：2012/03/16(金) 17:57:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
351：番組の途中ですが名無しです：2012/03/16(金) 17:57:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
352：番組の途中ですが名無しです：2012/03/16(金) 17:58:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
353：番組の途中ですが名無しです：2012/03/16(金) 17:58:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
354：番組の途中ですが名無しです：2012/03/16(金) 17:59:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
355：番組の途中ですが名無しです：2012/03/16(金) 17:59:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
356：番組の途中ですが名無しです：2012/03/16(金) 18:00:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
357：番組の途中ですが名無しです：2012/03/16(金) 18:00:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
358：番組の途中ですが名無しです：2012/03/16(金) 18:01:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
359：番組の途中ですが名無しです：2012/03/16(金) 18:01:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
360：番組の途中ですが名無しです：2012/03/16(金) 18:02:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
361：番組の途中ですが名無しです：2012/03/16(金) 18:03:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
362：番組の途中ですが名無しです：2012/03/16(金) 18:03:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
363：番組の途中ですが名無しです：2012/03/16(金) 18:04:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
364：番組の途中ですが名無しです：2012/03/16(金) 18:04:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
365：番組の途中ですが名無しです：2012/03/16(金) 18:05:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
366：番組の途中ですが名無しです：2012/03/16(金) 18:05:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
367：番組の途中ですが名無しです：2012/03/16(金) 18:06:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
368：番組の途中ですが名無しです：2012/03/16(金) 18:06:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
369：番組の途中ですが名無しです：2012/03/16(金) 18:07:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
370：番組の途中ですが名無しです：2012/03/16(金) 18:07:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
371：番組の途中ですが名無しです：2012/03/16(金) 18:08:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
372：番組の途中ですが名無しです：2012/03/16(金) 18:08:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
373：番組の途中ですが名無しです：2012/03/16(金) 18:09:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
374：番組の途中ですが名無しです：2012/03/16(金) 18:09:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
375：番組の途中ですが名無しです：2012/03/16(金) 18:10:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
376：番組の途中ですが名無しです：2012/03/16(金) 18:10:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
377：番組の途中ですが名無しです：2012/03/16(金) 18:11:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
378：番組の途中ですが名無しです：2012/03/16(金) 18:11:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
379：番組の途中ですが名無しです：2012/03/16(金) 18:12:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
380：番組の途中ですが名無しです：2012/03/16(金) 18:13:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
381：番組の途中ですが名無しです：2012/03/16(金) 18:13:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
382：番組の途中ですが名無しです：2012/03/16(金) 18:14:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
383：番組の途中ですが名無しです：2012/03/16(金) 18:14:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
384：番組の途中ですが名無しです：2012/03/16(金) 18:15:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
385：番組の途中ですが名無しです：2012/03/16(金) 18:15:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
386：番組の途中ですが名無しです：2012/03/16(金) 18:16:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
387：番組の途中ですが名無しです：2012/03/16(金) 18:16:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
388：番組の途中ですが名無しです：2012/03/16(金) 18:17:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
389：番組の途中ですが名無しです：2012/03/16(金) 18:17:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
390：番組の途中ですが名無しです：2012/03/16(金) 18:18:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
391：番組の途中ですが名無しです：2012/03/16(金) 18:18:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
392：番組の途中ですが名無しです：2012/03/16(金) 18:19:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
393：番組の途中ですが名無しです：2012/03/16(金) 18:19:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
394：番組の途中ですが名無しです：2012/03/16(金) 18:20:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
395：番組の途中ですが名無しです：2012/03/16(金) 18:20:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
396：番組の途中ですが名無しです：2012/03/16(金) 18:21:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
397：番組の途中ですが名無しです：2012/03/16(金) 18:21:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
398：番組の途中ですが名無しです：2012/03/16(金) 18:22:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
399：番組の途中ですが名無しです：2012/03/16(金) 18:22:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
400：番組の途中ですが名無しです：2012/03/16(金) 18:23:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
401：番組の途中ですが名無しです：2012/03/16(金) 18:24:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
402：番組の途中ですが名無しです：2012/03/16(金) 18:24:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
403：番組の途中ですが名無しです：2012/03/16(金) 18:25:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
404：番組の途中ですが名無しです：2012/03/16(金) 18:25:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
405：番組の途中ですが名無しです：2012/03/16(金) 18:26:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
406：番組の途中ですが名無しです：2012/03/16(金) 18:26:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
407：番組の途中ですが名無しです：2012/03/16(金) 18:27:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
408：番組の途中ですが名無しです：2012/03/16(金) 18:27:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
409：番組の途中ですが名無しです：2012/03/16(金) 18:28:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
410：番組の途中ですが名無しです：2012/03/16(金) 18:28:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
411：番組の途中ですが名無しです：2012/03/16(金) 18:29:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
412：番組の途中ですが名無しです：2012/03/16(金) 18:29:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
413：番組の途中ですが名無しです：2012/03/16(金) 18:30:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
414：番組の途中ですが名無しです：2012/03/16(金) 18:30:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
415：番組の途中ですが名無しです：2012/03/16(金) 18:31:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
416：番組の途中ですが名無しです：2012/03/16(金) 18:31:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
417：番組の途中ですが名無しです：2012/03/16(金) 18:32:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
418：番組の途中ですが名無しです：2012/03/16(金) 18:32:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
419：番組の途中ですが名無しです：2012/03/16(金) 18:33:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
420：番組の途中ですが名無しです：2012/03/16(金) 18:33:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
421：番組の途中ですが名無しです：2012/03/16(金) 18:34:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
422：番組の途中ですが名無しです：2012/03/16(金) 18:34:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
423：番組の途中ですが名無しです：2012/03/16(金) 18:35:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
424：番組の途中ですが名無しです：2012/03/16(金) 18:36:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
425：番組の途中ですが名無しです：2012/03/16(金) 18:36:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
426：番組の途中ですが名無しです：2012/03/16(金) 18:37:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
427：番組の途中ですが名無しです：2012/03/16(金) 18:37:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
428：番組の途中ですが名無しです：2012/03/16(金) 18:38:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
429：番組の途中ですが名無しです：2012/03/16(金) 18:38:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
430：番組の途中ですが名無しです：2012/03/16(金) 18:39:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
431：番組の途中ですが名無しです：2012/03/16(金) 18:39:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
432：番組の途中ですが名無しです：2012/03/16(金) 18:40:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
433：番組の途中ですが名無しです：2012/03/16(金) 18:40:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
434：番組の途中ですが名無しです：2012/03/16(金) 18:41:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
435：番組の途中ですが名無しです：2012/03/16(金) 18:41:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
436：番組の途中ですが名無しです：2012/03/16(金) 18:42:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
437：番組の途中ですが名無しです：2012/03/16(金) 18:42:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
438：番組の途中ですが名無しです：2012/03/16(金) 18:43:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
439：番組の途中ですが名無しです：2012/03/16(金) 18:43:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
440：番組の途中ですが名無しです：2012/03/16(金) 18:44:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
441：番組の途中ですが名無しです：2012/03/16(金) 18:44:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
442：番組の途中ですが名無しです：2012/03/16(金) 18:45:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
443：番組の途中ですが名無しです：2012/03/16(金) 18:45:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
444：番組の途中ですが名無しです：2012/03/16(金) 18:46:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
445：番組の途中ですが名無しです：2012/03/16(金) 18:47:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
446：番組の途中ですが名無しです：2012/03/16(金) 18:47:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
447：番組の途中ですが名無しです：2012/03/16(金) 18:48:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
448：番組の途中ですが名無しです：2012/03/16(金) 18:48:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
449：番組の途中ですが名無しです：2012/03/16(金) 18:49:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
450：番組の途中ですが名無しです：2012/03/16(金) 18:49:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
451：番組の途中ですが名無しです：2012/03/16(金) 18:50:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
452：番組の途中ですが名無しです：2012/03/16(金) 18:50:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
453：番組の途中ですが名無しです：2012/03/16(金) 18:51:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
454：番組の途中ですが名無しです：2012/03/16(金) 18:51:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
455：番組の途中ですが名無しです：2012/03/16(金) 18:52:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
456：番組の途中ですが名無しです：2012/03/16(金) 18:52:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
457：番組の途中ですが名無しです：2012/03/16(金) 18:53:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
458：番組の途中ですが名無しです：2012/03/16(金) 18:53:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
459：番組の途中ですが名無しです：2012/03/16(金) 18:54:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
460：番組の途中ですが名無しです：2012/03/16(金) 18:54:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
461：番組の途中ですが名無しです：2012/03/16(金) 18:55:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
462：番組の途中ですが名無しです：2012/03/16(金) 18:56:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
463：番組の途中ですが名無しです：2012/03/16(金) 18:56:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
464：番組の途中ですが名無しです：2012/03/16(金) 18:57:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
465：番組の途中ですが名無しです：2012/03/16(金) 18:57:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
466：番組の途中ですが名無しです：2012/03/16(金) 18:58:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
467：番組の途中ですが名無しです：2012/03/16(金) 18:58:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
468：番組の途中ですが名無しです：2012/03/16(金) 18:59:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
469：番組の途中ですが名無しです：2012/03/16(金) 18:59:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
470：番組の途中ですが名無しです：2012/03/16(金) 19:00:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
471：番組の途中ですが名無しです：2012/03/16(金) 19:00:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
472：番組の途中ですが名無しです：2012/03/16(金) 19:01:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
473：番組の途中ですが名無しです：2012/03/16(金) 19:01:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
474：番組の途中ですが名無しです：2012/03/16(金) 19:02:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
475：番組の途中ですが名無しです：2012/03/16(金) 19:02:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
476：番組の途中ですが名無しです：2012/03/16(金) 19:03:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
477：番組の途中ですが名無しです：2012/03/16(金) 19:03:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
478：番組の途中ですが名無しです：2012/03/16(金) 19:04:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
479：番組の途中ですが名無しです：2012/03/16(金) 19:05:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
480：番組の途中ですが名無しです：2012/03/16(金) 19:05:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
481：番組の途中ですが名無しです：2012/03/16(金) 19:06:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
482：番組の途中ですが名無しです：2012/03/16(金) 19:06:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
483：番組の途中ですが名無しです：2012/03/16(金) 19:07:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
484：番組の途中ですが名無しです：2012/03/16(金) 19:07:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
485：番組の途中ですが名無しです：2012/03/16(金) 19:08:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
486：番組の途中ですが名無しです：2012/03/16(金) 19:08:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
487：番組の途中ですが名無しです：2012/03/16(金) 19:09:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
488：番組の途中ですが名無しです：2012/03/16(金) 19:09:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
489：番組の途中ですが名無しです：2012/03/16(金) 19:10:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
490：番組の途中ですが名無しです：2012/03/16(金) 19:10:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
491：番組の途中ですが名無しです：2012/03/16(金) 19:11:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
492：番組の途中ですが名無しです：2012/03/16(金) 19:11:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
493：番組の途中ですが名無しです：2012/03/16(金) 19:12:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
494：番組の途中ですが名無しです：2012/03/16(金) 19:12:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
495：番組の途中ですが名無しです：2012/03/16(金) 19:13:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
496：番組の途中ですが名無しです：2012/03/16(金) 19:13:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
497：番組の途中ですが名無しです：2012/03/16(金) 19:14:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
498：番組の途中ですが名無しです：2012/03/16(金) 19:14:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
499：番組の途中ですが名無しです：2012/03/16(金) 19:15:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
500：番組の途中ですが名無しです：2012/03/16(金) 19:15:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
501：番組の途中ですが名無しです：2012/03/16(金) 19:16:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
502：番組の途中ですが名無しです：2012/03/16(金) 19:17:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
503：番組の途中ですが名無しです：2012/03/16(金) 19:17:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
504：番組の途中ですが名無しです：2012/03/16(金) 19:18:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
505：番組の途中ですが名無しです：2012/03/16(金) 19:18:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
506：番組の途中ですが名無しです：2012/03/16(金) 19:19:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
507：番組の途中ですが名無しです：2012/03/16(金) 19:19:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
508：番組の途中ですが名無しです：2012/03/16(金) 19:20:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
509：番組の途中ですが名無しです：2012/03/16(金) 19:20:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
510：番組の途中ですが名無しです：2012/03/16(金) 19:21:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
511：番組の途中ですが名無しです：2012/03/16(金) 19:21:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
512：番組の途中ですが名無しです：2012/03/16(金) 19:22:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
513：番組の途中ですが名無しです：2012/03/16(金) 19:22:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
514：番組の途中ですが名無しです：2012/03/16(金) 19:23:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
515：番組の途中ですが名無しです：2012/03/16(金) 19:23:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
516：番組の途中ですが名無しです：2012/03/16(金) 19:24:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
517：番組の途中ですが名無しです：2012/03/16(金) 19:24:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
518：番組の途中ですが名無しです：2012/03/16(金) 19:25:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
519：番組の途中ですが名無しです：2012/03/16(金) 19:26:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
520：番組の途中ですが名無しです：2012/03/16(金) 19:26:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
521：番組の途中ですが名無しです：2012/03/16(金) 19:27:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
522：番組の途中ですが名無しです：2012/03/16(金) 19:27:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
523：番組の途中ですが名無しです：2012/03/16(金) 19:28:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
524：番組の途中ですが名無しです：2012/03/16(金) 19:28:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
525：番組の途中ですが名無しです：2012/03/16(金) 19:29:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
526：番組の途中ですが名無しです：2012/03/16(金) 19:29:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
527：番組の途中ですが名無しです：2012/03/16(金) 19:30:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
528：番組の途中ですが名無しです：2012/03/16(金) 19:30:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
529：番組の途中ですが名無しです：2012/03/16(金) 19:31:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
530：番組の途中ですが名無しです：2012/03/16(金) 19:31:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
531：番組の途中ですが名無しです：2012/03/16(金) 19:32:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
532：番組の途中ですが名無しです：2012/03/16(金) 19:32:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
533：番組の途中ですが名無しです：2012/03/16(金) 19:33:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
534：番組の途中ですが名無しです：2012/03/16(金) 19:33:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
535：番組の途中ですが名無しです：2012/03/16(金) 19:34:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
536：番組の途中ですが名無しです：2012/03/16(金) 19:34:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
537：番組の途中ですが名無しです：2012/03/16(金) 19:35:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
538：番組の途中ですが名無しです：2012/03/16(金) 19:35:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
539：番組の途中ですが名無しです：2012/03/16(金) 19:36:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
540：番組の途中ですが名無しです：2012/03/16(金) 19:37:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
541：番組の途中ですが名無しです：2012/03/16(金) 19:37:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
542：番組の途中ですが名無しです：2012/03/16(金) 19:38:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
543：番組の途中ですが名無しです：2012/03/16(金) 19:38:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
544：番組の途中ですが名無しです：2012/03/16(金) 19:39:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
545：番組の途中ですが名無しです：2012/03/16(金) 19:39:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
546：番組の途中ですが名無しです：2012/03/16(金) 19:40:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
547：番組の途中ですが名無しです：2012/03/16(金) 19:40:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
548：番組の途中ですが名無しです：2012/03/16(金) 19:41:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
549：番組の途中ですが名無しです：2012/03/16(金) 19:41:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
550：番組の途中ですが名無しです：2012/03/16(金) 19:42:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
551：番組の途中ですが名無しです：2012/03/16(金) 19:42:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
552：番組の途中ですが名無しです：2012/03/16(金) 19:43:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
553：番組の途中ですが名無しです：2012/03/16(金) 19:43:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
554：番組の途中ですが名無しです：2012/03/16(金) 19:44:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
555：番組の途中ですが名無しです：2012/03/16(金) 19:44:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
556：番組の途中ですが名無しです：2012/03/16(金) 19:45:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
557：番組の途中ですが名無しです：2012/03/16(金) 19:45:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
558：番組の途中ですが名無しです：2012/03/16(金) 19:46:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
559：番組の途中ですが名無しです：2012/03/16(金) 19:47:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
560：番組の途中ですが名無しです：2012/03/16(金) 19:47:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
561：番組の途中ですが名無しです：2012/03/16(金) 19:48:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
562：番組の途中ですが名無しです：2012/03/16(金) 19:48:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
563：番組の途中ですが名無しです：2012/03/16(金) 19:49:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
564：番組の途中ですが名無しです：2012/03/16(金) 19:49:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
565：番組の途中ですが名無しです：2012/03/16(金) 19:50:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
566：番組の途中ですが名無しです：2012/03/16(金) 19:50:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
567：番組の途中ですが名無しです：2012/03/16(金) 19:51:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
568：番組の途中ですが名無しです：2012/03/16(金) 19:51:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
569：番組の途中ですが名無しです：2012/03/16(金) 19:52:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
570：番組の途中ですが名無しです：2012/03/16(金) 19:52:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
571：番組の途中ですが名無しです：2012/03/16(金) 19:53:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
572：番組の途中ですが名無しです：2012/03/16(金) 19:53:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
573：番組の途中ですが名無しです：2012/03/16(金) 19:54:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
574：番組の途中ですが名無しです：2012/03/16(金) 19:54:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
575：番組の途中ですが名無しです：2012/03/16(金) 19:55:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
576：番組の途中ですが名無しです：2012/03/16(金) 19:55:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
577：番組の途中ですが名無しです：2012/03/16(金) 19:56:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
578：番組の途中ですが名無しです：2012/03/16(金) 19:56:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
579：番組の途中ですが名無しです：2012/03/16(金) 19:57:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
580：番組の途中ですが名無しです：2012/03/16(金) 19:57:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
581：番組の途中ですが名無しです：2012/03/16(金) 19:58:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
582：番組の途中ですが名無しです：2012/03/16(金) 19:59:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
583：番組の途中ですが名無しです：2012/03/16(金) 19:59:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
584：番組の途中ですが名無しです：2012/03/16(金) 20:00:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
585：番組の途中ですが名無しです：2012/03/16(金) 20:00:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
586：番組の途中ですが名無しです：2012/03/16(金) 20:01:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
587：番組の途中ですが名無しです：2012/03/16(金) 20:01:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
588：番組の途中ですが名無しです：2012/03/16(金) 20:02:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
589：番組の途中ですが名無しです：2012/03/16(金) 20:02:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
590：番組の途中ですが名無しです：2012/03/16(金) 20:03:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
591：番組の途中ですが名無しです：2012/03/16(金) 20:03:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
592：番組の途中ですが名無しです：2012/03/16(金) 20:04:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
593：番組の途中ですが名無しです：2012/03/16(金) 20:04:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
594：番組の途中ですが名無しです：2012/03/16(金) 20:05:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
595：番組の途中ですが名無しです：2012/03/16(金) 20:05:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
596：番組の途中ですが名無しです：2012/03/16(金) 20:06:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
597：番組の途中ですが名無しです：2012/03/16(金) 20:06:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
598：番組の途中ですが名無しです：2012/03/16(金) 20:07:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
599：番組の途中ですが名無しです：2012/03/16(金) 20:07:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
600：番組の途中ですが名無しです：2012/03/16(金) 20:08:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
601：番組の途中ですが名無しです：2012/03/16(金) 20:08:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
602：番組の途中ですが名無しです：2012/03/16(金) 20:09:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
603：番組の途中ですが名無しです：2012/03/16(金) 20:09:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
604：番組の途中ですが名無しです：2012/03/16(金) 20:10:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
605：番組の途中ですが名無しです：2012/03/16(金) 20:10:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
606：番組の途中ですが名無しです：2012/03/16(金) 20:11:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
607：番組の途中ですが名無しです：2012/03/16(金) 20:12:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
608：番組の途中ですが名無しです：2012/03/16(金) 20:12:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
609：番組の途中ですが名無しです：2012/03/16(金) 20:13:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
610：番組の途中ですが名無しです：2012/03/16(金) 20:13:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
611：番組の途中ですが名無しです：2012/03/16(金) 20:14:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
612：番組の途中ですが名無しです：2012/03/16(金) 20:14:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
613：番組の途中ですが名無しです：2012/03/16(金) 20:15:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
614：番組の途中ですが名無しです：2012/03/16(金) 20:15:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
615：番組の途中ですが名無しです：2012/03/16(金) 20:16:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
616：番組の途中ですが名無しです：2012/03/16(金) 20:16:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
617：番組の途中ですが名無しです：2012/03/16(金) 20:17:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
618：番組の途中ですが名無しです：2012/03/16(金) 20:17:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
619：番組の途中ですが名無しです：2012/03/16(金) 20:18:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
620：番組の途中ですが名無しです：2012/03/16(金) 20:18:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
621：番組の途中ですが名無しです：2012/03/16(金) 20:19:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
622：番組の途中ですが名無しです：2012/03/16(金) 20:19:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
623：番組の途中ですが名無しです：2012/03/16(金) 20:20:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
624：番組の途中ですが名無しです：2012/03/16(金) 20:20:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
625：番組の途中ですが名無しです：2012/03/16(金) 20:21:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
626：番組の途中ですが名無しです：2012/03/16(金) 20:21:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
627：番組の途中ですが名無しです：2012/03/16(金) 20:22:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
628：番組の途中ですが名無しです：2012/03/16(金) 20:23:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
629：番組の途中ですが名無しです：2012/03/16(金) 20:23:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
630：番組の途中ですが名無しです：2012/03/16(金) 20:24:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
631：番組の途中ですが名無しです：2012/03/16(金) 20:24:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
632：番組の途中ですが名無しです：2012/03/16(金) 20:25:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
633：番組の途中ですが名無しです：2012/03/16(金) 20:25:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
634：番組の途中ですが名無しです：2012/03/16(金) 20:26:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
635：番組の途中ですが名無しです：2012/03/16(金) 20:26:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
636：番組の途中ですが名無しです：2012/03/16(金) 20:27:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
637：番組の途中ですが名無しです：2012/03/16(金) 20:27:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
638：番組の途中ですが名無しです：2012/03/16(金) 20:28:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
639：番組の途中ですが名無しです：2012/03/16(金) 20:28:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
640：番組の途中ですが名無しです：2012/03/16(金) 20:29:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
641：番組の途中ですが名無しです：2012/03/16(金) 20:29:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
642：番組の途中ですが名無しです：2012/03/16(金) 20:30:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
643：番組の途中ですが名無しです：2012/03/16(金) 20:30:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
644：番組の途中ですが名無しです：2012/03/16(金) 20:31:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
645：番組の途中ですが名無しです：2012/03/16(金) 20:31:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
646：番組の途中ですが名無しです：2012/03/16(金) 20:32:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
647：番組の途中ですが名無しです：2012/03/16(金) 20:32:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
648：番組の途中ですが名無しです：2012/03/16(金) 20:33:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
649：番組の途中ですが名無しです：2012/03/16(金) 20:33:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
650：番組の途中ですが名無しです：2012/03/16(金) 20:34:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
651：番組の途中ですが名無しです：2012/03/16(金) 20:35:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
652：番組の途中ですが名無しです：2012/03/16(金) 20:35:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
653：番組の途中ですが名無しです：2012/03/16(金) 20:36:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
654：番組の途中ですが名無しです：2012/03/16(金) 20:36:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
655：番組の途中ですが名無しです：2012/03/16(金) 20:37:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
656：番組の途中ですが名無しです：2012/03/16(金) 20:37:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
657：番組の途中ですが名無しです：2012/03/16(金) 20:38:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
658：番組の途中ですが名無しです：2012/03/16(金) 20:38:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
659：番組の途中ですが名無しです：2012/03/16(金) 20:39:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
660：番組の途中ですが名無しです：2012/03/16(金) 20:39:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
661：番組の途中ですが名無しです：2012/03/16(金) 20:40:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
662：番組の途中ですが名無しです：2012/03/16(金) 20:40:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
663：番組の途中ですが名無しです：2012/03/16(金) 20:41:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
664：番組の途中ですが名無しです：2012/03/16(金) 20:41:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
665：番組の途中ですが名無しです：2012/03/16(金) 20:42:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
666：番組の途中ですが名無しです：2012/03/16(金) 20:42:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
667：番組の途中ですが名無しです：2012/03/16(金) 20:43:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
668：番組の途中ですが名無しです：2012/03/16(金) 20:43:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
669：番組の途中ですが名無しです：2012/03/16(金) 20:44:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
670：番組の途中ですが名無しです：2012/03/16(金) 20:45:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
671：番組の途中ですが名無しです：2012/03/16(金) 20:45:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
672：番組の途中ですが名無しです：2012/03/16(金) 20:46:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
673：番組の途中ですが名無しです：2012/03/16(金) 20:46:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
674：番組の途中ですが名無しです：2012/03/16(金) 20:47:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
675：番組の途中ですが名無しです：2012/03/16(金) 20:47:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
676：番組の途中ですが名無しです：2012/03/16(金) 20:48:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
677：番組の途中ですが名無しです：2012/03/16(金) 20:48:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
678：番組の途中ですが名無しです：2012/03/16(金) 20:49:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
679：番組の途中ですが名無しです：2012/03/16(金) 20:49:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
680：番組の途中ですが名無しです：2012/03/16(金) 20:50:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
681：番組の途中ですが名無しです：2012/03/16(金) 20:50:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
682：番組の途中ですが名無しです：2012/03/16(金) 20:51:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
683：番組の途中ですが名無しです：2012/03/16(金) 20:51:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
684：番組の途中ですが名無しです：2012/03/16(金) 20:52:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
685：番組の途中ですが名無しです：2012/03/16(金) 20:52:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
686：番組の途中ですが名無しです：2012/03/16(金) 20:53:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
687：番組の途中ですが名無しです：2012/03/16(金) 20:53:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
688：番組の途中ですが名無しです：2012/03/16(金) 20:54:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
689：番組の途中ですが名無しです：2012/03/16(金) 20:55:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
690：番組の途中ですが名無しです：2012/03/16(金) 20:55:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
691：番組の途中ですが名無しです：2012/03/16(金) 20:56:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
692：番組の途中ですが名無しです：2012/03/16(金) 20:56:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
693：番組の途中ですが名無しです：2012/03/16(金) 20:57:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
694：番組の途中ですが名無しです：2012/03/16(金) 20:57:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
695：番組の途中ですが名無しです：2012/03/16(金) 20:58:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
696：番組の途中ですが名無しです：2012/03/16(金) 20:58:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
697：番組の途中ですが名無しです：2012/03/16(金) 20:59:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
698：番組の途中ですが名無しです：2012/03/16(金) 20:59:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
699：番組の途中ですが名無しです：2012/03/16(金) 21:00:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
700：番組の途中ですが名無しです：2012/03/16(金) 21:00:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
701：番組の途中ですが名無しです：2012/03/16(金) 21:01:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
702：番組の途中ですが名無しです：2012/03/16(金) 21:01:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
703：番組の途中ですが名無しです：2012/03/16(金) 21:02:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
704：番組の途中ですが名無しです：2012/03/16(金) 21:02:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
705：番組の途中ですが名無しです：2012/03/16(金) 21:03:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
706：番組の途中ですが名無しです：2012/03/16(金) 21:03:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
707：番組の途中ですが名無しです：2012/03/16(金) 21:04:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
708：番組の途中ですが名無しです：2012/03/16(金) 21:04:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
709：番組の途中ですが名無しです：2012/03/16(金) 21:05:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
710：番組の途中ですが名無しです：2012/03/16(金) 21:05:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
711：番組の途中ですが名無しです：2012/03/16(金) 21:06:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
712：番組の途中ですが名無しです：2012/03/16(金) 21:07:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
713：番組の途中ですが名無しです：2012/03/16(金) 21:07:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
714：番組の途中ですが名無しです：2012/03/16(金) 21:08:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
715：番組の途中ですが名無しです：2012/03/16(金) 21:08:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
716：番組の途中ですが名無しです：2012/03/16(金) 21:09:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
717：番組の途中ですが名無しです：2012/03/16(金) 21:09:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
718：番組の途中ですが名無しです：2012/03/16(金) 21:10:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
719：番組の途中ですが名無しです：2012/03/16(金) 21:10:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
720：番組の途中ですが名無しです：2012/03/16(金) 21:11:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
721：番組の途中ですが名無しです：2012/03/16(金) 21:11:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
722：番組の途中ですが名無しです：2012/03/16(金) 21:12:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
723：番組の途中ですが名無しです：2012/03/16(金) 21:12:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
724：番組の途中ですが名無しです：2012/03/16(金) 21:13:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
725：番組の途中ですが名無しです：2012/03/16(金) 21:13:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
726：番組の途中ですが名無しです：2012/03/16(金) 21:14:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
727：番組の途中ですが名無しです：2012/03/16(金) 21:14:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
728：番組の途中ですが名無しです：2012/03/16(金) 21:15:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
729：番組の途中ですが名無しです：2012/03/16(金) 21:16:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
730：番組の途中ですが名無しです：2012/03/16(金) 21:16:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
731：番組の途中ですが名無しです：2012/03/16(金) 21:17:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
732：番組の途中ですが名無しです：2012/03/16(金) 21:17:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
733：番組の途中ですが名無しです：2012/03/16(金) 21:18:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
734：番組の途中ですが名無しです：2012/03/16(金) 21:18:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
735：番組の途中ですが名無しです：2012/03/16(金) 21:19:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
736：番組の途中ですが名無しです：2012/03/16(金) 21:19:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
737：番組の途中ですが名無しです：2012/03/16(金) 21:20:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
738：番組の途中ですが名無しです：2012/03/16(金) 21:20:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
739：番組の途中ですが名無しです：2012/03/16(金) 21:21:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
740：番組の途中ですが名無しです：2012/03/16(金) 21:21:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
741：番組の途中ですが名無しです：2012/03/16(金) 21:22:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
742：番組の途中ですが名無しです：2012/03/16(金) 21:22:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
743：番組の途中ですが名無しです：2012/03/16(金) 21:23:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
744：番組の途中ですが名無しです：2012/03/16(金) 21:23:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
745：番組の途中ですが名無しです：2012/03/16(金) 21:24:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
746：番組の途中ですが名無しです：2012/03/16(金) 21:24:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
747：番組の途中ですが名無しです：2012/03/16(金) 21:25:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
748：番組の途中ですが名無しです：2012/03/16(金) 21:26:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
749：番組の途中ですが名無しです：2012/03/16(金) 21:26:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
750：番組の途中ですが名無しです：2012/03/16(金) 21:27:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
751：番組の途中ですが名無しです：2012/03/16(金) 21:27:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
752：番組の途中ですが名無しです：2012/03/16(金) 21:28:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
753：番組の途中ですが名無しです：2012/03/16(金) 21:28:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
754：番組の途中ですが名無しです：2012/03/16(金) 21:29:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
755：番組の途中ですが名無しです：2012/03/16(金) 21:29:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
756：番組の途中ですが名無しです：2012/03/16(金) 21:30:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
757：番組の途中ですが名無しです：2012/03/16(金) 21:30:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
758：番組の途中ですが名無しです：2012/03/16(金) 21:31:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
759：番組の途中ですが名無しです：2012/03/16(金) 21:31:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
760：番組の途中ですが名無しです：2012/03/16(金) 21:32:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
761：番組の途中ですが名無しです：2012/03/16(金) 21:32:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
762：番組の途中ですが名無しです：2012/03/16(金) 21:33:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
763：番組の途中ですが名無しです：2012/03/16(金) 21:33:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
764：番組の途中ですが名無しです：2012/03/16(金) 21:34:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
765：番組の途中ですが名無しです：2012/03/16(金) 21:34:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
766：番組の途中ですが名無しです：2012/03/16(金) 21:35:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
767：番組の途中ですが名無しです：2012/03/16(金) 21:35:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
768：番組の途中ですが名無しです：2012/03/16(金) 21:36:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
769：番組の途中ですが名無しです：2012/03/16(金) 21:36:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
770：番組の途中ですが名無しです：2012/03/16(金) 21:37:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
771：番組の途中ですが名無しです：2012/03/16(金) 21:38:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
772：番組の途中ですが名無しです：2012/03/16(金) 21:38:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
773：番組の途中ですが名無しです：2012/03/16(金) 21:39:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
774：番組の途中ですが名無しです：2012/03/16(金) 21:39:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
775：番組の途中ですが名無しです：2012/03/16(金) 21:40:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
776：番組の途中ですが名無しです：2012/03/16(金) 21:40:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
777：番組の途中ですが名無しです：2012/03/16(金) 21:41:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
778：番組の途中ですが名無しです：2012/03/16(金) 21:41:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
779：番組の途中ですが名無しです：2012/03/16(金) 21:42:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
780：番組の途中ですが名無しです：2012/03/16(金) 21:42:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
781：番組の途中ですが名無しです：2012/03/16(金) 21:43:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
782：番組の途中ですが名無しです：2012/03/16(金) 21:43:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
783：番組の途中ですが名無しです：2012/03/16(金) 21:44:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
784：番組の途中ですが名無しです：2012/03/16(金) 21:44:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
785：番組の途中ですが名無しです：2012/03/16(金) 21:45:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
786：番組の途中ですが名無しです：2012/03/16(金) 21:45:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
787：番組の途中ですが名無しです：2012/03/16(金) 21:46:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
788：番組の途中ですが名無しです：2012/03/16(金) 21:47:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
789：番組の途中ですが名無しです：2012/03/16(金) 21:47:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
790：番組の途中ですが名無しです：2012/03/16(金) 21:48:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
791：番組の途中ですが名無しです：2012/03/16(金) 21:48:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
792：番組の途中ですが名無しです：2012/03/16(金) 21:49:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
793：番組の途中ですが名無しです：2012/03/16(金) 21:49:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
794：番組の途中ですが名無しです：2012/03/16(金) 21:50:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
795：番組の途中ですが名無しです：2012/03/16(金) 21:50:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
796：番組の途中ですが名無しです：2012/03/16(金) 21:51:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
797：番組の途中ですが名無しです：2012/03/16(金) 21:51:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
798：番組の途中ですが名無しです：2012/03/16(金) 21:52:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
799：番組の途中ですが名無しです：2012/03/16(金) 21:52:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
800：番組の途中ですが名無しです：2012/03/16(金) 21:53:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
801：番組の途中ですが名無しです：2012/03/16(金) 21:53:55 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
802：番組の途中ですが名無しです：2012/03/16(金) 21:54:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
803：番組の途中ですが名無しです：2012/03/16(金) 21:55:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
804：番組の途中ですが名無しです：2012/03/16(金) 21:55:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
805：番組の途中ですが名無しです：2012/03/16(金) 21:56:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
806：番組の途中ですが名無しです：2012/03/16(金) 21:56:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
807：番組の途中ですが名無しです：2012/03/16(金) 21:57:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
808：番組の途中ですが名無しです：2012/03/16(金) 21:57:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
809：番組の途中ですが名無しです：2012/03/16(金) 21:58:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
810：番組の途中ですが名無しです：2012/03/16(金) 21:58:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
811：番組の途中ですが名無しです：2012/03/16(金) 21:59:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
812：番組の途中ですが名無しです：2012/03/16(金) 21:59:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
813：番組の途中ですが名無しです：2012/03/16(金) 22:00:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
814：番組の途中ですが名無しです：2012/03/16(金) 22:00:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
815：番組の途中ですが名無しです：2012/03/16(金) 22:01:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
816：番組の途中ですが名無しです：2012/03/16(金) 22:01:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
817：番組の途中ですが名無しです：2012/03/16(金) 22:02:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
818：番組の途中ですが名無しです：2012/03/16(金) 22:02:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
819：番組の途中ですが名無しです：2012/03/16(金) 22:03:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
820：番組の途中ですが名無しです：2012/03/16(金) 22:03:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
821：番組の途中ですが名無しです：2012/03/16(金) 22:04:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
822：番組の途中ですが名無しです：2012/03/16(金) 22:05:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
823：番組の途中ですが名無しです：2012/03/16(金) 22:05:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
824：番組の途中ですが名無しです：2012/03/16(金) 22:06:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
825：番組の途中ですが名無しです：2012/03/16(金) 22:06:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
826：番組の途中ですが名無しです：2012/03/16(金) 22:07:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
827：番組の途中ですが名無しです：2012/03/16(金) 22:07:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
828：番組の途中ですが名無しです：2012/03/16(金) 22:08:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
829：番組の途中ですが名無しです：2012/03/16(金) 22:08:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
830：番組の途中ですが名無しです：2012/03/16(金) 22:09:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
831：番組の途中ですが名無しです：2012/03/16(金) 22:09:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
832：番組の途中ですが名無しです：2012/03/16(金) 22:10:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
833：番組の途中ですが名無しです：2012/03/16(金) 22:10:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
834：番組の途中ですが名無しです：2012/03/16(金) 22:11:20 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
835：番組の途中ですが名無しです：2012/03/16(金) 22:11:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
836：番組の途中ですが名無しです：2012/03/16(金) 22:12:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
837：番組の途中ですが名無しです：2012/03/16(金) 22:12:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
838：番組の途中ですが名無しです：2012/03/16(金) 22:13:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
839：番組の途中ですが名無しです：2012/03/16(金) 22:14:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
840：番組の途中ですが名無しです：2012/03/16(金) 22:14:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
841：番組の途中ですが名無しです：2012/03/16(金) 22:15:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
842：番組の途中ですが名無しです：2012/03/16(金) 22:15:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
843：番組の途中ですが名無しです：2012/03/16(金) 22:16:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
844：番組の途中ですが名無しです：2012/03/16(金) 22:16:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
845：番組の途中ですが名無しです：2012/03/16(金) 22:17:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
846：番組の途中ですが名無しです：2012/03/16(金) 22:17:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
847：番組の途中ですが名無しです：2012/03/16(金) 22:18:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
848：番組の途中ですが名無しです：2012/03/16(金) 22:18:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
849：番組の途中ですが名無しです：2012/03/16(金) 22:19:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
850：番組の途中ですが名無しです：2012/03/16(金) 22:19:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
851：番組の途中ですが名無しです：2012/03/16(金) 22:20:18 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
852：番組の途中ですが名無しです：2012/03/16(金) 22:20:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
853：番組の途中ですが名無しです：2012/03/16(金) 22:21:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
854：番組の途中ですが名無しです：2012/03/16(金) 22:21:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
855：番組の途中ですが名無しです：2012/03/16(金) 22:22:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
856：番組の途中ですが名無しです：2012/03/16(金) 22:22:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
857：番組の途中ですが名無しです：2012/03/16(金) 22:23:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
858：番組の途中ですが名無しです：2012/03/16(金) 22:24:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
859：番組の途中ですが名無しです：2012/03/16(金) 22:24:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
860：番組の途中ですが名無しです：2012/03/16(金) 22:25:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
861：番組の途中ですが名無しです：2012/03/16(金) 22:25:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
862：番組の途中ですが名無しです：2012/03/16(金) 22:26:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
863：番組の途中ですが名無しです：2012/03/16(金) 22:26:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
864：番組の途中ですが名無しです：2012/03/16(金) 22:27:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
865：番組の途中ですが名無しです：2012/03/16(金) 22:27:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
866：番組の途中ですが名無しです：2012/03/16(金) 22:28:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
867：番組の途中ですが名無しです：2012/03/16(金) 22:28:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
868：番組の途中ですが名無しです：2012/03/16(金) 22:29:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
869：番組の途中ですが名無しです：2012/03/16(金) 22:29:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
870：番組の途中ですが名無しです：2012/03/16(金) 22:30:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
871：番組の途中ですが名無しです：2012/03/16(金) 22:30:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
872：番組の途中ですが名無しです：2012/03/16(金) 22:31:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
873：番組の途中ですが名無しです：2012/03/16(金) 22:31:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
874：番組の途中ですが名無しです：2012/03/16(金) 22:32:26 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
875：番組の途中ですが名無しです：2012/03/16(金) 22:32:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
876：番組の途中ですが名無しです：2012/03/16(金) 22:33:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
877：番組の途中ですが名無しです：2012/03/16(金) 22:34:01 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
878：番組の途中ですが名無しです：2012/03/16(金) 22:34:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
879：番組の途中ですが名無しです：2012/03/16(金) 22:35:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
880：番組の途中ですが名無しです：2012/03/16(金) 22:35:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
881：番組の途中ですが名無しです：2012/03/16(金) 22:36:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
882：番組の途中ですが名無しです：2012/03/16(金) 22:36:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
883：番組の途中ですが名無しです：2012/03/16(金) 22:37:08 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
884：番組の途中ですが名無しです：2012/03/16(金) 22:37:40 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
885：番組の途中ですが名無しです：2012/03/16(金) 22:38:11 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
886：番組の途中ですが名無しです：2012/03/16(金) 22:38:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
887：番組の途中ですが名無しです：2012/03/16(金) 22:39:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
888：番組の途中ですが名無しです：2012/03/16(金) 22:39:47 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
889：番組の途中ですが名無しです：2012/03/16(金) 22:40:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
890：番組の途中ですが名無しです：2012/03/16(金) 22:40:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
891：番組の途中ですが名無しです：2012/03/16(金) 22:41:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
892：番組の途中ですが名無しです：2012/03/16(金) 22:41:52 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
893：番組の途中ですが名無しです：2012/03/16(金) 22:42:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
894：番組の途中ですが名無しです：2012/03/16(金) 22:42:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
895：番組の途中ですが名無しです：2012/03/16(金) 22:43:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
896：番組の途中ですが名無しです：2012/03/16(金) 22:43:58 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
897：番組の途中ですが名無しです：2012/03/16(金) 22:44:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
898：番組の途中ですが名無しです：2012/03/16(金) 22:45:02 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
899：番組の途中ですが名無しです：2012/03/16(金) 22:45:33 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
900：番組の途中ですが名無しです：2012/03/16(金) 22:46:06 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
901：番組の途中ですが名無しです：2012/03/16(金) 22:46:37 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
902：番組の途中ですが名無しです：2012/03/16(金) 22:47:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
903：番組の途中ですが名無しです：2012/03/16(金) 22:47:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
904：番組の途中ですが名無しです：2012/03/16(金) 22:48:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
905：番組の途中ですが名無しです：2012/03/16(金) 22:48:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
906：番組の途中ですが名無しです：2012/03/16(金) 22:49:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
907：番組の途中ですが名無しです：2012/03/16(金) 22:49:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
908：番組の途中ですが名無しです：2012/03/16(金) 22:50:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
909：番組の途中ですが名無しです：2012/03/16(金) 22:50:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
910：番組の途中ですが名無しです：2012/03/16(金) 22:51:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
911：番組の途中ですが名無しです：2012/03/16(金) 22:51:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
912：番組の途中ですが名無しです：2012/03/16(金) 22:52:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
913：番組の途中ですが名無しです：2012/03/16(金) 22:52:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
914：番組の途中ですが名無しです：2012/03/16(金) 22:53:30 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
915：番組の途中ですが名無しです：2012/03/16(金) 22:54:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
916：番組の途中ですが名無しです：2012/03/16(金) 22:54:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
917：番組の途中ですが名無しです：2012/03/16(金) 22:55:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
918：番組の途中ですが名無しです：2012/03/16(金) 22:55:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
919：番組の途中ですが名無しです：2012/03/16(金) 22:56:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
920：番組の途中ですが名無しです：2012/03/16(金) 22:56:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
921：番組の途中ですが名無しです：2012/03/16(金) 22:57:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
922：番組の途中ですが名無しです：2012/03/16(金) 22:57:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
923：番組の途中ですが名無しです：2012/03/16(金) 22:58:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
924：番組の途中ですが名無しです：2012/03/16(金) 22:58:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
925：番組の途中ですが名無しです：2012/03/16(金) 22:59:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
926：番組の途中ですが名無しです：2012/03/16(金) 22:59:51 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
927：番組の途中ですが名無しです：2012/03/16(金) 23:00:23 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
928：番組の途中ですが名無しです：2012/03/16(金) 23:00:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
929：番組の途中ですが名無しです：2012/03/16(金) 23:01:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
930：番組の途中ですが名無しです：2012/03/16(金) 23:01:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
931：番組の途中ですが名無しです：2012/03/16(金) 23:02:29 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
932：番組の途中ですが名無しです：2012/03/16(金) 23:03:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
933：番組の途中ですが名無しです：2012/03/16(金) 23:03:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
934：番組の途中ですが名無しです：2012/03/16(金) 23:04:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
935：番組の途中ですが名無しです：2012/03/16(金) 23:04:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
936：番組の途中ですが名無しです：2012/03/16(金) 23:05:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
937：番組の途中ですが名無しです：2012/03/16(金) 23:05:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
938：番組の途中ですが名無しです：2012/03/16(金) 23:06:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
939：番組の途中ですが名無しです：2012/03/16(金) 23:06:42 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
940：番組の途中ですが名無しです：2012/03/16(金) 23:07:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
941：番組の途中ですが名無しです：2012/03/16(金) 23:07:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
942：番組の途中ですが名無しです：2012/03/16(金) 23:08:16 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
943：番組の途中ですが名無しです：2012/03/16(金) 23:08:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
944：番組の途中ですが名無しです：2012/03/16(金) 23:09:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
945：番組の途中ですが名無しです：2012/03/16(金) 23:09:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
946：番組の途中ですが名無しです：2012/03/16(金) 23:10:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
947：番組の途中ですが名無しです：2012/03/16(金) 23:10:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
948：番組の途中ですが名無しです：2012/03/16(金) 23:11:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
949：番組の途中ですが名無しです：2012/03/16(金) 23:11:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
950：番組の途中ですが名無しです：2012/03/16(金) 23:12:27 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
951：番組の途中ですが名無しです：2012/03/16(金) 23:12:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
952：番組の途中ですが名無しです：2012/03/16(金) 23:13:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
953：番組の途中ですが名無しです：2012/03/16(金) 23:14:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
954：番組の途中ですが名無しです：2012/03/16(金) 23:14:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
955：番組の途中ですが名無しです：2012/03/16(金) 23:15:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
956：番組の途中ですが名無しです：2012/03/16(金) 23:15:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
957：番組の途中ですが名無しです：2012/03/16(金) 23:16:10 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
958：番組の途中ですが名無しです：2012/03/16(金) 23:16:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
959：番組の途中ですが名無しです：2012/03/16(金) 23:17:14 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
960：番組の途中ですが名無しです：2012/03/16(金) 23:17:45 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
961：番組の途中ですが名無しです：2012/03/16(金) 23:18:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
962：番組の途中ですが名無しです：2012/03/16(金) 23:18:49 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
963：番組の途中ですが名無しです：2012/03/16(金) 23:19:21 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
964：番組の途中ですが名無しです：2012/03/16(金) 23:19:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
965：番組の途中ですが名無しです：2012/03/16(金) 23:20:25 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
966：番組の途中ですが名無しです：2012/03/16(金) 23:20:56 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
967：番組の途中ですが名無しです：2012/03/16(金) 23:21:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
968：番組の途中ですが名無しです：2012/03/16(金) 23:22:00 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
969：番組の途中ですが名無しです：2012/03/16(金) 23:22:32 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
970：番組の途中ですが名無しです：2012/03/16(金) 23:23:05 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
971：番組の途中ですが名無しです：2012/03/16(金) 23:23:36 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
972：番組の途中ですが名無しです：2012/03/16(金) 23:24:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
973：番組の途中ですが名無しです：2012/03/16(金) 23:24:38 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
974：番組の途中ですが名無しです：2012/03/16(金) 23:25:09 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
975：番組の途中ですが名無しです：2012/03/16(金) 23:25:41 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
976：番組の途中ですが名無しです：2012/03/16(金) 23:26:13 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
977：番組の途中ですが名無しです：2012/03/16(金) 23:26:44 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
978：番組の途中ですが名無しです：2012/03/16(金) 23:27:17 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
979：番組の途中ですが名無しです：2012/03/16(金) 23:27:48 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
980：番組の途中ですが名無しです：2012/03/16(金) 23:28:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
981：番組の途中ですが名無しです：2012/03/16(金) 23:28:53 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
982：番組の途中ですが名無しです：2012/03/16(金) 23:29:24 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
983：番組の途中ですが名無しです：2012/03/16(金) 23:29:57 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
984：番組の途中ですが名無しです：2012/03/16(金) 23:30:28 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
985：番組の途中ですが名無しです：2012/03/16(金) 23:30:59 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
986：番組の途中ですが名無しです：2012/03/16(金) 23:31:31 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
987：番組の途中ですが名無しです：2012/03/16(金) 23:32:03 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
988：番組の途中ですが名無しです：2012/03/16(金) 23:32:34 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
989：番組の途中ですが名無しです：2012/03/16(金) 23:33:04 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
990：番組の途中ですが名無しです：2012/03/16(金) 23:33:35 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
991：番組の途中ですが名無しです：2012/03/16(金) 23:34:07 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
992：番組の途中ですが名無しです：2012/03/16(金) 23:34:39 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
993：番組の途中ですが名無しです：2012/03/16(金) 23:35:12 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
994：番組の途中ですが名無しです：2012/03/16(金) 23:35:43 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
995：番組の途中ですが名無しです：2012/03/16(金) 23:36:15 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
996：番組の途中ですが名無しです：2012/03/16(金) 23:36:46 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
997：番組の途中ですが名無しです：2012/03/16(金) 23:37:19 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
998：番組の途中ですが名無しです：2012/03/16(金) 23:37:50 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
999：番組の途中ですが名無しです：2012/03/16(金) 23:38:22 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
1000：番組の途中ですが名無しです：2012/03/16(金) 23:38:54 ID:b7/5SmhU: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

【福井】恐喝まがい 値切 りこゆママ キャラ弁★22 【K5発狂】