Excel VBAでQRコードを生成したい

質問

下記のようなExcelファイルがあります。
（Webシステムからのダウンロードで作られる.xlsmのファイル）
このExcelを開くときに、各シートにB4セル（データ3）をもとにQRコードを生成したいです。

　　　A　　｜　B　　
1 　タイトル（AB結合）　QRコード（タイトルと同様のセル、タイトルの右側に配置）
2　項目名1　データ1
3　項目名2　データ2
4　項目名3　データ3
5　項目名4　データ4

・シートはダウンロードするデータ数によるため変動
・各シートに1つQRコードを生成

テンプレートを利用しダウンロードしているため、指定のセルにはもともと違う値が入っています・
ActiveXコントロールでは中身のデータが更新されない＆シート2枚目以降にQRコードが生成されなかったためマクロで作成したいのですが、
インターネットで調べると1シート内の連続生成のみで
シートごとの繰り返し方がわからなかったので投稿させていただきました。
ご教授よろしくお願い致します。

回答No.1

kkkkkm

> シートごとの繰り返し方

シートが連続しているのでしたら
左から1番2番と数えて
たとえば1番目から最後まででしたら
For i = 1 To Sheets.Count
'Sheets(i)か
’Dim Sh As Worksheet
’で宣言して
’Set Sh = Sheets(i)
'などでシートを指定してシートに対する動作
Next

とかでしょうか。

補足

ご回答ありがとうございます。
インターネットで拾ったソースコードをもとに修正しておりますが
QRコード生成のところで躓いております。

Sub QRコードリンク先生成()

Dim i As Integer
Dim num As Integer
Dim size As String
Dim URL0 As String
Dim URL1 As String
Dim URL2 As String
Dim URL3 As String
Dim URL4 As String

Dim Sh As Worksheet

For i = 1 To Sheets.Count
Set Sh = Sheets(i)

URL4 = Sheets(i).Cells(4, 2)
URL0 = URL1 & URL2 & URL3 & URL4

Cells(1, 2).Select
Sheets(i).Pictures.Insert URL0
Rows(1).Select
Selection.RowHeight = 50

Next
End Sub

もとのソースを確認したところ、
Sheets(i).Pictures.Insert URL0の部分（Sheets("QRコード生成").Pictures.Insert URL0）で
QRコードが生成されておりますが上記を実行すると
「実行時エラー '1004'
PicturesクラスのInsertメソッドが失敗しました。」
というエラーメッセージが表示されます。

画像がないよということのようですが、元ソースではこれより前にQRコードを生成しており、
この部分で表示をしているだけなのでしょうか。

ご教授いただければ幸いです。