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

1：番組の途中ですが名無しです：2011/02/13(日) 11:33:53 ID:HYTmQplk: 以上、誰も書き込まない糞スレでした
2：番組の途中ですが名無しです：2012/03/16(金) 22:40:35 ID:CESWJQrI: ＞『このデジカメの値段のまま扇風機2台付けてくれ』
＞解説　M部君とは、前回、冷蔵庫購入の際に運悪く、うちの旦那の接客にあたってしまって、
＞冷蔵庫をかなり安くしたあげく、扇風機2台までタダ同然で付けさせられた店員さんです
＞旦那はニヤニヤニタニタしながら溝部さんの腹をつまみ肩を抱き寄せる
＞結局　デジカメの店頭価格に少し上乗せ（旦那の希望金額）した金額に
＞デジカメにデジカメケース　液晶保護フィルム　メモリカード（4GB）扇風機2台
＞これを全部つけてくれました
＞溝部さんを可愛がってあげてください首が飛ぶまで安くしてくれますから

*こゆママ*
ブログ削除して逃亡のため魚拓
ttp://megalodon.jp/2010-0801-0624-43/apacchimanana.linkulblog.net/e90319.html

こゆまま発端で起こった騒動、リンクル福井ブログユーザーに次々飛び火。
高速３００キロオーバー爆走自慢、密漁自慢等各種お取り揃えです

今北さんはまずはこちらを
【まとめwiki】
ttp://www23.atwiki.jp/apacchimanana/
【福井ニュース】
ttp://fukuinews2.linkulblog.net/　　　パス:inago
ttp://fukuinews.blog135.fc2.com/
【Linkul Blog : みんなでつくる福井のブログポータルサイト事件まとめ＠福井NEWS 】
http://www37.atwiki.jp/fukuinews/pages/1.html

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
「連投キチガイ等が湧いた場合」の通報はこちら
ﾗｲﾌﾞﾄﾞｱしたらば掲示板：ﾆｭｰ速避難所＠したらば掲示板管理者への連絡ﾌｫｰﾑ
http://rentalbbs.livedoor.com/jbbs/user_inquiry/?dir=internet&bbs=7847
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
3：番組の途中ですが名無しです：2012/03/16(金) 22:41:02 ID:8DPTsBq2: 【関連スレ】
ニュース議論板
http://toki.2ch.net/test/read.cgi/news2/1282144484/
既婚女性板
http://toki.2ch.net/test/read.cgi/ms/1281112716/
ニュース速報板（ＤＡＴ落ち）
http://kamome.2ch.net/test/read.cgi/news/1282368508/

【福井ニュース】
ttp://fukuinews2.linkulblog.net/　　　パス:inago
【まとめwiki】
ttp://www23.atwiki.jp/apacchimanana/
【前スレ】【刺青】家電屋で恐喝まがいの値切りブログ★【K5独り舞台】
ttp://jbbs.livedoor.jp/bbs/read.cgi/internet/7847/1281611005/
【自称正義の味方イナゴハンターK5見参】
（自称）炎上した人からカネ貰ってる火消し屋
ttp://jbbs.livedoor.jp/bbs/read.cgi/internet/7677/1281529911/63
K5のリンクルブログ
ttp://inagohunter.linkulblog.net/
K5の別サイト
ttp://blog.livedoor.jp/inago_hunter/archives/51694752.html
【探偵ファイルで取り上げられました】
家電量販店で恫喝行為を繰り返すキャラ弁ブログ夫婦
ttp://www.tanteifile.com/newswatch/2010/08/03_01/index.html
自動車販売業者が300キロ暴走運転をブログで自慢！
ttp://www.tanteifile.com/newswatch/2010/08/14_01/index.html
4：番組の途中ですが名無しです：2012/03/17(土) 03:52:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:52:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:53:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:53:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:54:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:55:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:55:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:56:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:56:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:57:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:57:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:58:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:58:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:59:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 03:59:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:00:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:00:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:01:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:01:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:02:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:02:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:03:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:03:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:04:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:05:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:05:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:06:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:06:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:07:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:07:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:08:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:08:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:09:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:09:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:10:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:10:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:11:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:11:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:12:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:12:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:13:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:14:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:14:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:15:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:15:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:16:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:16:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:17:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:17:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:18:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:18:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:19:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:19:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:20:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:20:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:21:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:21:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:22:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:22:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:23:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:23:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:24:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:24:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:25:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:25:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:26:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:27:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:27:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:28:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:28:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:29:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:29:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:30:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:30:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:31:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:31:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:32:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:32:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:33:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:33:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:34:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:34:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:35:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:35:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:36:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:37:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:37:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:38:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:38:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:39:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:39:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:40:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:40:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:41:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:41:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:42:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:42:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:43:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:43:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:44:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:44:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:45:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:45:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:46:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:47:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:47:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:48:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:48:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:49:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:49:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:50:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:50:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:51:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:51:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:52:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:52:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:53:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:53:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:54:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:54:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:55:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:55:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:56:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:57:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:57:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:58:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:58:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:59:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 04:59:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:00:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:00:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:01:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:01:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:02:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:02:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:03:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:03:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:04:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:04:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:05:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:05:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:06:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:07:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:07:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:08:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:08:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:09:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:09:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:10:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:10:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:11:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:11:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:12:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:12:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:13:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:13:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:14:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:14:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:15:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:15:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:16:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:16:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:17:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:18:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:18:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:19:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:19:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:20:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:20:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:21:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:21:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:22:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:22:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:23:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:23:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:24:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:24:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:25:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:26:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:26:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:27:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:27:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:28:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:28:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:29:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:29:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:30:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:30:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:31:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:31:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:32:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:32:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:33:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:33:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:34:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:34:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:35:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:35:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:36:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:37:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:37:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:38:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:38:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:39:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:39:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:40:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:40:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:41:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:41:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:42:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:42:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:43:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:43:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:44:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:44:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:45:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:45:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:46:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:46:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:47:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:48:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:48:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:49:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:49:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:50:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:50:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:51:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:51:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:52:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:52:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:53:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:53:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:54:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:54:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:55:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:55:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:56:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:57:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:57:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:58:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:58:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:59:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 05:59:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:00:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:00:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:01:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:01:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:02:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:02:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:03:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:03:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:04:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:04:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:05:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:05:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:06:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:06:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:07:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:08:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:08:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:09:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:09:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:10:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:10:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:11:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:11:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:12:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:12:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:13:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:13:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:14:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:14:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:15:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:15:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:16:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:16:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:17:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:18:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:18:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:19:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:19:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:20:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:20:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:21:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:21:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:22:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:22:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:23:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:23:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:24:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:24:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:25:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:25:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:26:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:26:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:27:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:28:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:28:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:29:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:29:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:30:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:30:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:31:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:31:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:32:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:32:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:33:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:33:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:34:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:34:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:35:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:35:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:36:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:36:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:37:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:38:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:38:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:39:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:39:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:40:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:40:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:41:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:41:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:42:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:42:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:43:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:43:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:44:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:44:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:45:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:45:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:46:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:46:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:47:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:47:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:48:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:48:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:49:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:50:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:50:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:51:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:51:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:52:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:52:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:53:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:53:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:54:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:54:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:55:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:55:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:56:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:56:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:57:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:57:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:58:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:59:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 06:59:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:00:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:00:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:01:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:01:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:02:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:02:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:03:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:03:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:04:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:04:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:05:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:05:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:06:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:06:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:07:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:07:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:08:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:09:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:09:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:10:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:10:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:11:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:11:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:12:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:12:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:13:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:13:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:14:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:14:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:15:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:15:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:16:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:16:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:17:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:18:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:18:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:19:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:19:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:20:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:20:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:21:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:21:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

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

If ActiveWorkbook.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/17(土) 07:22:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

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

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:22:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:23:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:23:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:24:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:24:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:25:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:25:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:26:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:26:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:27:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:28:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:28:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:29:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:29:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:30:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:30:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:31:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:31:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:32:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:32:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:33:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:33:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:34:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:34:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:35:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:35:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:36:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:36:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:37:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:38:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:38:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:39:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:39:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:40:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:40:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:41:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:41:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:42:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:42:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:43:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:43:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:44:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:44:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:45:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:45:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:46:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:46:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:47:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:47:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:48:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:49:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:49:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:50:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:50:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:51:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:51:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:52:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:52:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:53:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:53:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:54:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:54:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:55:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:55:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:56:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:56:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:57:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:58:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:58:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:59:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 07:59:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:00:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:00:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:01:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:01:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:02:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:02:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:03:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:03:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:04:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:04:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:05:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:05:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:06:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:06:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:07:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:07:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:08:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:09:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:09:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:10:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:10:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:11:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:11:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:12:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:12:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:13:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:13:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:14:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:14:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:15:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:15:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:16:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:16:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:17:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:17:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:18:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:18:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:19:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:19:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:20:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:20:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:21:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:22:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:22:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:23:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:23:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:24:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:24:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:25:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:25:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:26:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:26:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:27:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:27:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:28:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:28:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:29:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:29:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:30:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:30:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:31:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:32:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:32:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:33:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:33:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:34:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:34:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:35:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:35:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:36:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:36:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:37:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:37:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:38:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:38:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:39:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:39:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:40:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:40:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:41:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:42:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:42:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:43:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:43:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:44:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:44:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:45:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:45:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:46:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:46:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:47:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:47:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:48:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:48:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:49:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:49:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:50:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:50:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:51:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:52:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:52:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:53:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:53:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:54:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:54:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:55:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:55:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:56:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:56:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:57:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:57:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:58:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:58:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:59:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 08:59:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:00:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:00:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:01:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:02:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:02:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:03:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:03:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:04:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:04:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:05:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:05:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:06:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:06:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:07:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:07:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:08:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:08:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:09:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:09:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:10:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:11:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:11:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:12:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:12:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:13:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:13:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:14:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:14:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:15:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:15:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:16:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:16:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:17:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:17:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:18:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:18:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:19:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:20:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:20:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:21:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:21:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:22:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:22:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:23:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:23:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:24:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:24:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:25:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:25:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:26:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:26:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:27:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:27:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:28:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:29:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:29:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:30:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:30:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:31:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:31:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:32:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:32:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:33:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:33:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:34:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:34:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:35:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:35:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:36:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:36:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:37:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:37:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:39:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:39:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:40:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:40:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:41:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:41:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:42:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:42:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:43:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:43:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:44:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:45:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:45:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:46:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:46:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:47:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:47:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:48:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:48:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:49:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:49:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:50:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:50:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:51:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:51:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:52:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:52:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:53:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:54:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:54:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:55:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:55:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:56:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:56:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:57:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:57:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:58:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:58:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:59:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 09:59:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:00:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:00:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:01:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:01:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:02:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:02:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:03:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:04:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:04:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:05:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:05:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:06:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:06:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:07:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:07:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:08:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:08:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:09:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:09:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:10:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:10:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:11:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:11:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:12:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:12:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:13:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:13:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:14:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:15:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:15:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:16:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:16:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:17:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:17:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:18:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:18:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:19:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:19:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:20:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:20:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:21:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:21:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:22:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:22:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:23:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:24:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:24:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:25:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:25:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:26:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:26:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:27:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:27:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:28:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:28:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:29:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:29:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:30:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:30:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:31:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:31:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:32:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:32:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:33:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:34:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:34:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:35:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:35:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:36:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:36:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:37:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:37:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:38:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:38:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:39:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:39:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:40:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:40:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:41:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:41:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:42:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:42:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:43:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:44:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:44:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:45:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:45:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:46:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:46:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:47:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:47:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:48:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:48:43 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:49:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:49:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:50:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:50:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:51:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:51:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:52:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:52:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:53:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:54:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:54:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:55:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:55:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:56:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:56:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:57:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:57:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:58:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:58:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:59:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 10:59:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:00:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:00:54 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:01:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:01:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:02:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:03:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:03:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:04:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:04:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:05:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:05:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:06:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:06:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:07:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:07:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:08:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:08:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:09:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:09:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:10:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:10:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:11:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:11:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:12:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:13:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:13:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:14:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:14:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:15:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:15:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:16:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:16:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:17:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:17:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:18:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:18:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:19:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:19:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:20:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:20:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:21:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:21:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:22:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:23:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:23:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:24:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:24:38 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:25:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:25:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:26:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:26:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:27:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:27:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:28:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:28:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:29:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:29:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:30:25 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:30:58 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:31:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:32:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:32:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:33:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:33:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:34:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:34:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:35:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:35:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:36:15 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:36:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:37:19 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:37:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:38:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:38:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:39:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:39:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:40:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:40:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:41:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:42:03 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:42:34 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:43:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:43:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:44:10 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:44:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:45:13 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:45:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:46:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:46:47 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:47:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:47:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:48:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:48:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:49:27 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:49:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:50:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:51:01 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:51:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:52:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:52:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:53:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:53:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:54:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:54:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:55:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:55:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:56:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:56:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:57:20 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:57:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:58:22 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:58:53 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:59:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 11:59:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:00:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:00:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:01:30 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:02:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:02:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:03:05 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:03:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:04:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:04:40 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:05:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:05:44 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:06:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:06:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:07:18 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:07:49 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:08:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:08:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:09:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:09:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:10:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:10:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:11:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:12:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:12:31 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:13:02 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:13:33 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:14:06 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:14:37 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:15:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:15:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:16:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:16:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:17:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:17:46 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:18:17 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:18:48 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:19:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:19:51 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:20:23 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:20:55 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:21:26 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:21:57 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:22:29 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:23:00 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:23:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:24:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:24:36 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:25:07 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:25:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:26:11 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:26:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:27:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:27:45 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:28:16 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:28:50 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:29:21 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:29:52 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:30:24 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:30:56 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:31:28 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:31:59 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:32:32 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:33:04 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:33:35 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:34:08 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:34:39 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:35:09 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:35:41 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:36:12 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:36:42 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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/17(土) 12:37:14 ID:LcbNIqf2: Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.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発狂】