Excel 2007 Windows７での不具合

下記の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

No.1 回答者： Syd-Yuki 回答日時： 2012/09/10 13:19

F8キーを押してステップ毎にチェックしてみてはいかがですか？