Syd-Yukiのプロフィール

下記のExcel 2007 VBAマクロを Windows XP で組んでいましたが、 Windows 7 に乗り換えたとたん、強制終了してしまいます。 Workbooks.Openのアドレスは、Windows 7用に書き換えました。 何方かご教授願います。 　　Private Sub CommandButton63_Click() 　　Application.ScreenUpdating = False 　　Dim wb As Workbook 　　wbn1 = ActiveWorkbook.Name 　　For Each wb In Workbooks 　　If wb.Name = wbn1 Then 　　Workbooks.Open "D:\ユーザー\PC18\Documents\※※※※\※※※※.xls" 　　ActiveWindow.WindowState = xlMaximized　 　　Workbooks(wbn1).Save 　　Application.DisplayAlerts = False 　　Workbooks(wbn1).Close 　　Else: Application.ScreenUpdating = False 　　End If 　　Next 　　Application.ScreenUpdating = True 　　End Sub

WiｎXp　Excel2003　のVBAです。(初心者なので言葉足らずのときは申し訳ありません) 請求書の番号を日付が変更したら、”0”に戻す方法で悩んでいます。 モジュールで、パブリック宣言して Public Sub 初期設定() Dim 本日, 受付1, 受付2 As String, 採番 As Integer 本日 = Today（） End Sub ここで行き詰ってしまいました。本日変数ひ日付を代入して、日付が変わったものと比較するのに、 どの段階で比較すればいいのか？ パソコンのスイッチを切ってしまったら、変数はクリアになってしまってう・・・等々考えていくうちに わからなくなってしまいました。 多分単純なことなのだと思います。(いろいろネットで調べてみましたが、似たようなものがなかったので、どなたか、似たような参考でもけっこうですので、教えていただけないでしょうか？