【Uniden/YAGI】ﾕﾆﾃﾞﾝﾁｭｰﾅｰ総合8【AVOX/DXｱﾝﾃﾅ】

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
whichfile = p + w * 10
End Sub
???????