VBA-Excelを使用してセルに数式を書き込むときに1004エラーが発生する

Question

VBAを使用してセルに式を書き込もうとしています。以下の抜粋コードは、正しい参照で正しい数式を提供します。しかし、私は1004ランタイムエラーを取得し続けます。私はそれが何を引き起こしているのか理解できません。このコードの抜粋が答えを明らかにするには十分だと思っていますが、もっと必要なものがあれば尋ねてください。

Set rg_sheet = ActiveWorkbook.Worksheets("RUNGLANCE") 
    for colNo = 2 to 8 
    for rowNo = 3 to 27 
    daySheetName = Cells(1,colNo) 
    rg_sheet.cells(rowNo,ColNo).formula = "=VLookUp(" & Chr(34) & "$A" & rowNo & Chr(34) & "), " & daySheetName & "!(" & chr(34) & "$A$3:$B$27" & Chr(34) & ", 2, False" 
    next rowNo 
    next colNo 

Answer 1

代わりの

rg_sheet.cells(rowNo,ColNo).formula = "=VLookUp(" & Chr(34) & "$A" & rowNo & Chr(34) & "), " & daySheetName & "!(" & chr(34) & "$A$3:$B$27" & Chr(34) & ", 2, False" 

美しい

rg_sheet.Cells(rowNo, colNo).Formula = "=VLookUp($A" & rowNo & ", " & daySheetName & "!" & "$A$3:$B$27" & ", 2, False" & ")"