Why is windows.activate subscript out of range (error 9)?

[sharonng]

I am trying to activate a window that I have just opened. My code is as follows:

Dim quarter As Integer
    Dim yr As Integer
    
    yr = InputBox("Enter the year:", "Year")
    quarter = InputBox("Enter the quarter (just the number):", "Quarter")
    
    If quarter <> 1 Then
    
            ' open new quarter file
            Workbooks.Open Filename:= _
                "J:\recoding\report_002\Report002_" & yr & "Q" & quarter & ".xls", UpdateLinks:=0
                
            ' open old quarter file
            Workbooks.Open Filename:= _
                "J:\recoding\report_002\Report002_" & yr & "Q" & (quarter - 1) & ".xls", UpdateLinks:=0
                
            'insert a row and a column at the most upper LHS
            Windows("Report002_" & yr & "Q" & (quarter - 1) & ".xls").Activate

When it reaches the last line, the error subscript out of range appears. How to fix that?

 

[johnnyL]

Try:

Windows("Report002_" & yr & "Q" & (quarter - 1)).Activate

 

[sharonng]

Try:

Windows("Report002_" & yr & "Q" & (quarter - 1)).Activate

still doesn't work

 

[sharonng]

Solution found. Save it in Modules instead of worksheet.

 

[welshgasman]

Solution found. Save it in Modules instead of worksheet.

Kindly explain how that could be please?

 

[sharonng]

Kindly explain how that could be please?

Put Excel-VBA code in module or sheet?

 

[welshgasman]

I understand why you would put code into a module as opposed to a sheet.
I was keen to understand why when you did that, it fixed your subscript out of range problem?