«Ошибка, определяемая приложением или объектом» при выборе диапазона

Question

Кажется, я получаю это сообщение об ошибке при запуске приведенного ниже сценария VBA в Excel 2007, однако он отлично работает в Excel 2016. Есть идеи, как это обойти? Application-defined or Object-defined error при выборе диапазона:

Set dvCell = Worksheets("Control").Range("B3")
    
Set inputRange = Evaluate(dvCell.Validation.Formula1)
i = 1
    
Application.ScreenUpdating = True
    
For Each c In inputRange
    ThisWorkbook.Worksheets("Store dept data").Activate
    dvCell = c.Value
     
    Application.ScreenUpdating = True
    Worksheets("Control").Cells(i, "AO").Value = Worksheets("Stores").Range("G30").Value
    i = i + 1
     
    Application.ScreenUpdating = True