как Sum запустить не для активного листа?

[gramp]

Возникла проблема. Код суммирует последние 5 ячейки каждую минуту

Worksheets("m0").Cells(pstr, 6) = Application.WorksheetFunction.Sum(Range(Cells((pstr - 4), 5), Cells(pstr, 5)))

но при переходе в книге на другой лист останавливается с ошибкой - Method 'Range' of object '_Global' failed, высвечивая эту строку.
Соответственно, я пробовал написать Application.Sum и WorksheetFunction.Sum - поведение аналогичное - при нахождении на листе, где выполняется процедура, все работает, при переходе на другой лист в момент выполнения кода остановка с ошибкой на этой строке.
Вопрос - как использовать суммирование и другие функции, чтобы они работали не только на активном листе, но и если активный лист - не тот, где выполняется процедура?
Спасибо за совет.

[Казанский]

with Worksheets("m0")
    .Cells(pstr, 6) = Application.Sum(Range(.Cells((pstr - 4), 5), .Cells(pstr, 5)))
end with

[gramp]

Сообщение от Казанский

with Worksheets("m0")
    .Cells(pstr, 6) = Application.Sum(Range(.Cells((pstr - 4), 5), .Cells(pstr, 5)))
end with

Спасибо большое