Windows 7 Macro VBA working but not with Window 10

[Lauren279]

I have a macro that works perfectly fine with Windows 7 and up until 3-4 days ago it was working fine on the window 10

The macro transfers data to another workbook, i have in place the correct file type / name etc etc and as stated above the macro works using a windows 7 computer

Would there be a reason for the macro to stop working stating the the "Run time error 9" "subscript out of range"

Am i missing something that can make it work again as it was before (it was working fine about 3-4 days ago)

 

[6StringJazzer]

The cause is almost certainly something different than the change in Windows version. That particular error suggests a change to either your code or your data. It is either referring to an array element using an index that is not in the array, or a collection like Worksheets with a name that doesn't exist.

When asking for help with an error message always give the line of code that is causing the error. Please show all of your code (and use the VBA button to enclose it in code tags for readability) and indicate which line of code caused the error.

 

[Lauren279]

Thanks Jeff
the code is below, sorry not sure if i have added it correctly ,
the reason i didn't include the code is that it works fine using the windows 7 computer, but not when i switch to windows 10 computer it stops at the IF statement
what is happening is that i am copying the information from a workbook called "Window 1" and when the cpv-main workbook is opens it stops at each section of the code when it reaches the IF statement of the VBA, when in the cpv-main workbook it will paste the information in 2 locations, but the exact same vba/macro is working on the W7 but not anymore on W10? even though it was in the past?

Private Sub Workbook_Open()

If Workbooks("CPV - Main").Sheets("Start").Range("B60").Value > 1 Then
Sheets("Display").Select
      ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=2, Collate _
            :=True, IgnorePrintAreas:=False
    Sheets("Start").Select
    Range("B1:B60").Select
        Selection.ClearContents
       Exit Sub
End If
End Sub

 

[Lauren279]

i would also like to make a point of that it is only the macro that is referencing another workbook and completing a macro that involves another workbook on the windows 10 computer, all other macros so far work fine, it is only the transfer of data from one workbook to another that stops at the IF statement within the VBA and also another vba code that prints out a report that is in a different workbook (basically CPV-Main workbook is a master) and Window 1 is a data entry workbook

 

[Fluff]

Try adding the file extension to the file name in the Workbooks

 

[Lauren279]

Try adding the file extension to the file name in the Workbooks

OMG Fluffy!!! you are the BEST ever!!!

Thank you so much, that was doing my head in!!

Gold star for you!! Appreciate!???

 

[Fluff]

Glad we could help & thanks for the feedback.

FYI you need to use the file extension, unless you have the "Hide extensions for known file types" checked in file explorer.