RTE 9 Subscript out of range

[ipbr21054]

Morning.
I have a sheet called MILEAGE (1)
I have c ommamd button with the following code shown below.
When i run the command button code i see a Msgbox saying RTE 9 Subscript out of range.
When i debug i see the line should below in Yellow

Private Sub CommandButton2_Click()
Dim answer As Long, wb As Workbook
    answer = MsgBox("ONLY TRANSFER FIGURES IF ITS THE END OF THE MONTH" & vbNewLine & "" & vbNewLine & "***** DO WE CONTINUE TO TRANSFER THE FIGURES ? *****", vbYesNo + vbCritical, "END OF MONTH TRANSFER QUESTION")
    If answer = vbYes Then
        Set wb = Workbooks.Open(FileName:="C:\Users\Ian\Desktop\EBAY\ACCOUNTS\CURRENT SHEETS\SUMMARY SHEET 2024-2025.xlsm")
        
        Workbooks("ACCOUNTS.xlsm").Sheets("MILEAGE (1)").Range("C32").Copy
        wb.Sheets("SUMMARY SHEET").Range("I17").PasteSpecial xlPasteValues
        wb.Close True

        Else
        Exit Sub
        
        End If
        Workbooks("ACCOUNTS.xlsm").Sheets("MILEAGE (1)").Range("A2").Select
        Application.CutCopyMode = False
        MsgBox "SUMMARY TRANSFER COMPLETE", vbInformation, "SUCCESSFUL MESSAGE"
        Sheets("SUMMARY ACCOUNTS").Select
        ActiveWorkbook.Save
End Sub

 

[ipbr21054]

I have checked the spelling of MILEAGE (1)
I also changed it to MILEAGE

But it still shows the message.

The code opens the SUMMARY SHEET & then i see the Message

 

[Peter_SSs]

That error on the red line of code would indicate no open workbook called "ACCOUNTS.xlsm" (unlikely given the previous line opens it) or if there is an open workbook with that name then it does not contain a worksheet called "MILEAGE (1)"

 

[ipbr21054]

You are spot on many thanks.
I was testing out some new code & had renamed the original file ACCOUNTS TEST
Didnt even consider that.

Have a nice day.

 

[Peter_SSs]

Cheers. Glad it is resolved. thanks for letting us know.