Windows 10 issue with Sheet placement

Hi,

I am currently working on upgrade to Windows 10 and seems to found issue with sheet name needs to be written before range/cells, however it seems to be intermittent.

For example below code is not working,

Range("V20").Value = "Sales Forecasting - " & Sheets("directory").Range("B8").Value & " - DESKTOP"

and have to be change to

Sheets("Forecast").Range("V20").Value = "Sales Forecasting - " & Sheets("directory").Range("B8").Value & " - DESKTOP"

However below code without Sheets(...) would work.

    Range("BM26").Formula = "=SUM(BA26:BL26)"
    Range("BN26").Formula = "=BM26/$BM$277"
    Range("BM26:BN26").Copy
    Range("BM26:BN" & eor2).PasteSpecial xlPasteFormulas
    Range("A26:CZ275").Sort Range("BN1"), xlDescending, , , , , , xlNo
    
    Range("V26").Value = 1
    Range("V27").Value = "=V26+1"
    Range("V27").Copy
    Range("V27:V275").PasteSpecial xlPasteFormulas
    Range("V:V").Copy
    Range("V:V").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Range("V26").Select

Can someone point out the changes made to Excel VBA in Windows 10?

Thanks
Lex

Hi,

This is not an issue with Windows10....
If you don't reference the sheet name, the value (or the formula) of the cell will be modified in the ACTIVE sheet when the macro is launched.
As a good practice, you should ALWAYS refer to the worksheet.. and even the workbook if you are working with multiple workbooks in your macro.

You could change your code to this :

   
With Sheets("Forecast")
 .Range("BM26").Formula = "=SUM(BA26:BL26)"
    .Range("BN26").Formula = "=BM26/$BM$277"
    .Range("BM26:BN26").Copy
    .Range("BM26:BN" & eor2).PasteSpecial xlPasteFormulas
    .Range("A26:CZ275").Sort .Range("BN1"), xlDescending, , , , , , xlNo
    
    .Range("V26").Value = 1
    .Range("V27").Value = "=V26+1"
    .Range("V27").Copy
    .Range("V27:V275").PasteSpecial xlPasteFormulas
    .Range("V:V").Copy
    .Range("V:V").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    .Range("V26").Select
End With