「A1」セルに値を書き込もうとしていますが、次のエラーが発生します。
アプリケーション定義またはオブジェクト定義のエラー「1004」
私はネット上で多くの解決策を試しましたが、どれも機能していません。私はExcel2007を使用しており、ファイルの拡張子は.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
編集:警告アイコンをクリックしてエラーが発生した後、[計算ステップを表示]を選択すると正しく機能します