エクセルファイル内の各シートに対応する画像を挿入したい

Question

〇実現したいこと
エクセルファイル内の各シートに対応する画像を挿入したい

〇具体的なイメージ
一つのワークブックの中に101から200までのシート名をつけたシートが計100枚あります。
また、□□□□というフォルダ内に挿入したい画像（jpg）が100個あります。
各シートのB6セルに画像を挿入するため、挿入したい画像のファイル名を各シートのN8セルに記載しました。
（例：シート名101のN8セルにはRX123456、シート名102のN8セルにはRX123457、シート名103のN8セルにはRX123458など）

以上が準備済みで、VBAでは
それぞれのシートのN８セルを参照して、同じファイル名の画像を呼び出してB6セルに貼り付ける、ということを繰り返したいです。
そこで変数jを当該シートのN8セルの値として、画像名jを呼び出そうと、下記のコードを書いたのですが、、、
setjの行で、「オブジェクトはこのプロパティまたはメソッドをサポートしていません」となってしまいます。
どのように修正すればよいものか、ご教示いただけましたら幸いです。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Sub 画像の流し込み()
Dim i
Dim j

For i = 101 To 200
Set j = Sheets(CStr(i)).Range("N8").String

Sheets(CStr(i)).Activate
Sheets(CStr(i)).Range("B6").Select
Sheets(CStr(i)).Pictures.Insert ("E:\□□□□\" & j & ".jpg")

On Error Resume Next
Next i

End Sub

Answer 1

無事動きました！　ありがとうございました。

質問用にセルの番地を改変（単純化）していたのですが、そこを戻し忘れておりました。
大変失礼いたしました。

Answer 2

以下ですが、

Set j = Sheets(CStr(i)).Range("N8").String

セルの値は、Valueプロパティです。またオブジェクトではないので、Setは不要です。なので以下でいかがでしょうか？

j = Sheets(CStr(i)).Range("N8").Value

Comments

[jinjin22]

早速ご指導いただきありがとうございます。

試したところ、Sheets(CStr(i)).Pictures.Insert ("E:\□□□□\" & j & ".jpg")の行で
「pictureクラスのinsertメソッドが失敗しました」とエラーが出てしました。

原因としては何が考えられますでしょうか。

[jinjin22]

ちなみに、画像ファイル名を変数 i にして試した場合（101シートに101というファイル名の画像を挿入）は成功したので、画像の参照先を誤っている可能性はなさそうです。。。

[hex309]

セルN8にはどのような値（例えばシート101）が入っていますか？