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