初めて質問させていただきます。
このような書き方でよいのかわからないのですが、お教えいただけると助かります。


<やりたいこと>

・セルA1〜A5に、式または数値が入っているsheetが複数有り(実際にはもっと複数のデータがあります)
・ユーザーフォーム内のTextBox1〜5には、セルA1〜A5に入力されている数値を初期値として表示
・sheetにより、式が入っているセルは違う
・ユーザーフォームは同じものを使用し、TextBox1〜5の数値を変更し転記したい
　ただし、A1〜A5に式が入っていた場合は、変更不可のメッセージを表示し初期値に戻す。

Private Sub UserForm_Initialize()

 TextBox1.Value = Range("A1").Value
 TextBox2.Value = Range("A2").Value
 TextBox3.Value = Range("A3").Value
 TextBox4.Value = Range("A4").Value
 TextBox5.Value = Range("A5").Value
  
End Sub


Private Sub CommandButtonOK_Click()

If Range("A1").HasFormula Then
  MsgBox "A1には式が入っていますので、数値の転記はできません。" & vbCrLf & "初期設定に戻します。", vbOKOnly, "確認"
 Else
   Range("A1").Value = TextBox1.Value
End If

If Range("A2").HasFormula Then
  MsgBox "A2には式が入っていますので、数値の転記はできません。" & vbCrLf & "初期設定に戻します。", vbOKOnly, "確認"
 Else
   Range("A2").Value = TextBox2.Value
End If

If Range("A3").HasFormula Then
  MsgBox "A3には式が入っていますので、数値の転記はできません。" & vbCrLf & "初期設定に戻します。", vbOKOnly, "確認"
 Else
   Range("A3").Value = TextBox3.Value
End If

If Range("A4").HasFormula Then
  MsgBox "A4には式が入っていますので、数値の転記はできません。" & vbCrLf & "初期設定に戻します。", vbOKOnly, "確認"
 Else
   Range("A4").Value = TextBox4.Value
End If
         
If Range("A5").HasFormula Then
  MsgBox "A5には式が入っていますので、数値の転記はできません。" & vbCrLf & "初期設定に戻します。", vbOKOnly, "確認"
 Else
   Range("A5").Value = TextBox5.Value
End If
         
'ﾃﾞｰﾀ移動後ﾃﾞｰﾀをｸﾘｱする
   Dim Ctrl As Control

    For Each Ctrl In Controls
        If TypeName(Ctrl) = "TextBox" Then _
            Ctrl.Value = ""
    Next Ctrl
                              
     MsgBox "登録しました。", vbOKOnly, "登録完了"
      Unload Me
      
      
End Sub



これを実行すると、TextBox1〜5の数値が変わっていない時にもにエラーメッセ時が表示されてしまいます。
私が思っているようなことは出来るのでしょうか。