エクセルマクロでシート名を変更したいセルからひっぱってきて変更したいです。

Question

比較データーの数が毎回違う為、比較するデーターの数を指定し、その数だけシートを追加、追加したシートの名前を画像のように上から順に変更していきたいがどう組んでいいかわかりません。どなたかご教授頂きたいです。

![

Sub Graph()
Dim op As Worksheet, i As Long
Dim cPath As String
Set op = Workbooks("CAB-Grapf.xls").ActiveSheet
cPath = op.Range("B1").Value
Worksheets.Add After:=Sheets("DATA"), Count:=op.Range("K1").Value
Sheets("sheet1").Select
ActiveSheet.Name = op.Range("B2").Value
Application.ScreenUpdating = False

End Sub

データーの数が５個の時もあれば１０個の時もあって毎回違うので
Sheets("sheet1").Select
ActiveSheet.Name = op.Range("B2").Value
だとその都度コード追加したりと変えなきゃなりませんのでそこもなんとかしたいです。

すみませんがよろしくお願い致します。

Answer 1

指定した数だけセルを検索するのならFor文で回せばいいと思いますが・・・。
または、行数を指定するのではなく、空白行までループさせることも可能です。

参考：データのある最後の行までループさせる方法

Comments

[macro-beginner]

ありがとうございました！