Subscript out of range error

[cruyff73]

Hi,

I'm running the following code but when it comes to line 7 (Windows("Kristian Evans James.xlsx").Activate) it shows the error. Any ideas??

Private Sub Workbook_Open()
Application.Calculation = xlManual
Workbooks.Open Filename:="m:\ccu ls\fr keying\fr1\Kristian Evans James.xlsx", Password:="FR34"
Windows("FR1.xlsm").Activate
Application.Calculation = xlAutomatic
Application.Calculation = xlManual
Windows("Kristian Evans James.xlsx").Activate
ActiveWindow.Close
Windows("FR1.xlsm").Activate
End Sub

Thanks

 

[Special-K99]

The window doesn't exist? The file doesn't exist?

 

[cruyff73]

It opens the file as per line 3 and the file remains open?