Запись строки в ячейку в excel

Я пытаюсь записать значение в ячейку «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

Редактировать :После того, как я получу сообщение об ошибке, если я щелкну значок с предупреждением, а затем выберу «Показать этапы расчета», он работает правильно