Excel VBAでセルにIFERROR関数を入れようとすると『型が一致しません』というエラーが出る

Question

前提・実現したいこと

VBAでセルにIFERROR関数を入れたい。

発生している問題・エラーメッセージ

お世話になります。VBA初学者です。
現在、ひとつのフォルダ内にある複数ファイルに対して、特定のセルにIFERROR関数を挿入したいと考えています。
ステップイン実行を試したところ、ファイルを開くことまではできるのですが、Valueを挿入する箇所で**『型が一致しません』**というエラーメッセージが表示され、コードの実行を続けることができません。

なお、IFERROR関数ではなく普通の文字列（例："hoge"）を挿入する分には上手くいきます。
自分ではどこがおかしいのか分からず…どなたかお知恵をお貸しいただけないでしょうか。

質問内容に不明点・不備等ございましたらご指摘いただけますと幸いです。
どうぞよろしくお願いいたします。

該当のソースコード

'＊＊＊＊関数の置換＊＊＊＊
Sub macro1()
  Dim myPath As String
  Dim myFile As String
  Dim newFunction As String
  Dim myCell As String
  Dim mySheetname As String
    
  myPath = "C\dummy"

  myPath = ThisWorkbook.Path & "\"
  myFile = Dir(myPath & "*.xlsx")
  Do Until myFile = ""
    Workbooks.Open myPath & myFile

    '↓↓↓エラーが発生しているのは以下一文
    ActiveWorkbook.Worksheets("データベース").Range("R5").Formula = "=IFERROR(IF(H5<6,0,IF(AND(H5>=6,H5<18),10,IF(AND(H5>=18,H5<30),11,IF(AND(H5>=30,H5<42),12,IF(AND(H5>=42,H5<54),14,IF(AND(H5>=54,H5<66),16,IF(AND(H5>=66,H5<78),18,IF(AND(H5>=78,H5<78),20," - ")))))))),"")"
    ActiveWorkbook.Close True

    myFile = Dir()
  Loop
End Sub

Answer 1

ダブルコーテーションを二重にしてエスケープしてあげたらいけると思います

Comments

[haruhi.]

ご回答ありがとうございます。
ダブルコーテーションを2つ使うことは初めて知りました。
とても勉強になりました。本当にありがとうございました！

Answer 2

こうかしら

ActiveWorkbook.Worksheets("データベース").Range("R5").Formula = "=IFERROR(IF(H5<6,0,IF(AND(H5>=6,H5<18),10,IF(AND(H5>=18,H5<30),11,IF(AND(H5>=30,H5<42),12,IF(AND(H5>=42,H5<54),14,IF(AND(H5>=54,H5<66),16,IF(AND(H5>=66,H5<78),18,IF(AND(H5>=78,H5<78),20,"" - "")))))))),"""")"

「"（ここに数式）"」で囲われている数式の中に「"」を使うときは、2個重ねて、「このダブルクオーテーションは数式の区切りではなくて文字です」と教えてあげるためです。

Comments

[haruhi.]

ご回答いただきありがとうございます。
二つ入力しなければならなかったのですね。解決いたしました！本当にありがとうございました！