excel vba オブジェクトが必要とのエラーの解決

Question

実現したいこと

エラーを解決したい。

発生している問題・分からないこと

コード実行するとオブジェクトが必要となります。
恐らく代入時の型が不一致だと思うのですが、対処がわかりません。
セルB3は文字列、変数codeはStringとしています。

調べるとこのエラーはFAQのようですが、わかりませんでした。

エラーメッセージ

実行時エラー　４２４
オブジェクトが必要です、

該当のソースコード

Public mOnTime As Date
'Dim code As String

Sub timer_read()

    Dim ct, count, lines
    Dim strFilePath As String
    Dim i, temp
    Dim code As String

　   Worksheets("Sheet1").Activate
    
    count = Sheet1.Range("f3")
    ct = Sheet1.Range("g3") + 1
    
'    Worksheets("Sheet3").Activate
    code = Sheet3.Cells(ct, 1).Text    
    If code = "0" Then
        Call OnTimeStop
    End If
    
    
    Worksheets("Sheet1").Activate
    Set Sheet1.Range("b3").Text = code　　　　←オブジェクトが必要のエラー４２４
    
    If ct >= Sheet1.Range("f3") Then
        Call OnTimeStop
    End If
   
End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

次のようなコードの変更を試した
Set Sheet1.Range("b3").string = code
Sheet1.Range("b3") = code
Sheet1.Range("b3").Text = code
コードの２行目を有効（例示コードではコメントアウト）

当初はセルB3を数値として、codeも数値としていた時は、問題ありませんでした。

補足

特になし

Answer 1

code はString型変数でオブジェクトでないのでSet は不要。
Textプロパティは参照のみで代入はできないので、Valueプロパティに代入。

'   Set Sheet1.Range("b3").Text = code　　　　←オブジェクトが必要のエラー４２４
   Sheet1.Range("b3").Value = code

Comments

[sigefuji]

回答ありがとうございます。
試したところ問題が解決しました！
ベストアンサーに選ばせていただきました。

Answer 2

自己解決は間違いです

Answer 3

早速のご返事ありがとうございます。
そうすれば解決しました。
Textプロパティは参照のみの件、勉強になりました。