リアルとマビノギ

メールで書くと長くなりそうなのでここで聞くー＞＜

エクセルで見積書作ってるんだけどＶＢＡで悩んでるのだ・・
うちの見積番号が08-0000って感じなんだけど

Ｆ１に08-、Ｇ１に0000を記入してるの。
今までＭＡＣでやってたから原始的だったんだけどwinで今度からやるようになるんで
がんばってるんだけど・・・；；

VBAでこの0000を自動で入るようにしたいのだ。
本とかで調べたほうほうだとファルダの中にあるファイル数からVBAでカウントさせる方法があって
それが

モジュール1　Auto_Open()

Const FPath = "C:\まり\見積"
Sub Auto_Open()
Dim Fso As New FileSystemObject
Range("G1") = Fso.GetFolder(FPath).Files.Count + 1
' Application.VBE.ActiveVBProject.VBComponents.Remove _
Application.VBE.ActiveVBProject.VBComponents ("見積書")
End Sub

こんなかんじで・・・
C:\まり\見積の部分ってこのフォルダの中のファイル数をカウントするって事だよね？
G1がカウントさせるマスで・・・
見積書の部分がシート名だよね？＠＠
でも実行するとエラーが出る・・；；Sub Auto_Open()が反転して・・


一応現状

C:\まり\見積\書類.xls（中身のsheet1を見積書に名前変更してます）
セルF1に08-　セルG1に0000記入

名前を付けて保存ボタンを作って押すと自動的に08-0000.xlsってファイル名が付くようなVBAだけは
つくってある（モジュール2）
モジュール2はちゃんと機能してる＞＜

名前を付けて保存のとき
C:\まり\見積\08-0000.xlsのようにする
（本当はC:\まり\見積\完成\08-0000.xlsと、フォルダを移動したい）

でもこれで完成してもできあがったファイルにVBAが残っちゃうんだよね。。消せないのかな。。
開くたびにVBAの許可聞いてきて・・・(--；

ファイルメーカーとか使うべきなのかなぁ・・でもお試しで入れたけどわけわかめだった；；；；