EXCELマクロでシート作成＆シート名をつける方法

質問

EXCELでセルＫ列に入力した名称でシートをどんどん作成したいのですが、
下記のようにやってみましたが、うまく実行されません。
２回目の←の部分で、終わってしまいます。
詳しい方、教えてください。

Sub Macro3()

Dim neSheet As String
Dim fMax As Integer
Dim num As Integer
Dim i As Integer

fMax = Range("B2").Value
num = 2

For i = 1 To fMax

neSheet = Range("k" & num).Value
Worksheets.Add(After:=Worksheets(1)).Name = neSheet　←
num = num + 1

Next i
End Sub

回答No.1

lark_0925 · ベストアンサー

ワークシートを追加すると、アクティブシートが
変わってしまいます。
neSheet = Range("k" & num).Value
↑こういう記述をワークシートオブジェクトからきちんと
記述してください。

Sub Macro3()
　　Dim neSheet As String
　　Dim fMax As Integer
　　Dim i As Integer
　　Dim sht As Worksheet
　　Set sht = Worksheets(1)
　　fMax = sht.Range("B2").Value
　　For i = 1 To fMax
　　　　neSheet = sht.Range("k" & (i + 1)).Value
　　　　Worksheets.Add(After:=Worksheets(1)).Name = neSheet
　　　　Next i
End Sub
↑このコードは、作成するシート情報
（セルＢ２作成シート数とＫ列のシート名）は最右端シートに
設定されいるものとします。

お礼

早速回答いただき、ありがとうございます。やってみます。