Я пытаюсь записать значение в «A1» ячейка, но получаю следующую ошибку:

Application-defined or object-defined error '1004'

Я пробовал много решений в сети, но ни одно не работает. Я использую Excel 2007 и расширение файла .xlsm.

Мой код выглядит следующим образом:

Sub varchanger()
On Error GoTo Whoa
Dim TxtRng  As Range

Worksheets("Game").Activate
ActiveSheet.Unprotect

Set TxtRng = ActiveWorkbook.Sheets("Game").Cells(1, 1)
TxtRng.Value = "SubTotal"

'Worksheets("Game").Range("A1") = "Asdf"

LetsContinue:
    Exit Sub
Whoa:
    MsgBox Err.number
    Resume LetsContinue
End Sub

Edit: After I get error if I click the caution icon and then select show calculation steps its working properly