VBAでString変数に値を入力しようとするとエラーになります

Question

以下のコードで
Set AF_fileName = AF_itemList("ファイル名")
とすると、

と表示されます。
Stringの変数に文字列を代入しているので、オブジェクトの記述はいらないと思うのですが、なぜこのエラーが出てしまうのか教えていただけないでしょうか。

Sub addFunc()

    Dim AF_curWs As Worksheet
    Dim AF_addWs As Worksheet
    Dim AF_fileName As String
    Dim AF_itemList As New Collection
    
    Set AF_curWs = Sheets("設定")
    
    AF_itemList.Add AF_curWs.Cells(2, 2), "変更者"
    AF_itemList.Add AF_curWs.Cells(3, 2), "ファイル名"
    AF_itemList.Add AF_curWs.Cells(4, 2), "関数名"
    AF_itemList.Add AF_curWs.Cells(5, 2), "引き数"
    AF_itemList.Add AF_curWs.Cells(6, 2), "内容"
    AF_itemList.Add AF_curWs.Cells(7, 2), "返り値"
    
    Call addSheet(AF_itemList("ファイル名"))
    Set AF_fileName = AF_itemList("ファイル名")
　　'ここで
    '>>コンパイルエラー: オブジェクトが必要です。
    'と表示されます
    Set AF_addWs = Worksheets(AF_fileName)
    
    Call addBox(AF_itemList, AF_addWs)

End Sub

####excel

Answer 1

とりあえずエラーの説明だけします。
オブジェクト変数でなければSetは不要です。
AF_fileName As String ですのでAF_fileNameはオブジェクト変数ではありません。
なので

Set AF_fileName = AF_itemList("ファイル名")

ではなく

AF_fileName = AF_itemList("ファイル名")

です。

Comments

[nagi900]

エラーが解消しました！丁寧に説明して下さり、ありがとうございました！

Answer 2

String変数への代入は　Set不要です。

Comments

[nagi900]

Setを消したところエラーが解消しました！ありがとうございました！

Answer 3

AF_itemList.Add AF_curWs.Cells(2, 2), "変更者"

VBAの文法になっていません

Comments

[nagi900]

ご回答ありがとうございます！