ただいまAセルにある数だけシートをつけようと奮闘しています。
たとえばAセルに55個、名前があったら、その数の分シートを作成し、
一人一人のシートを作成したいと思っています。
シートを作るのは何とかできました。

方法は、B1セルにCOUNTA関数をいれます。Aセルの間に空白でない数を出した後に、

Dim i As Long
  
For i = 1 To Range("B1")
  
    Worksheets.Add After:=Worksheets(Worksheets.Count)

Next i

このコードで数の分だけシートを作る事ができたのですが、Aセルにある名前をシートの名前に、
一つずつ入力させる方法がわかりません。
よろしかったらアドバイスお願いします。

実際に走らせてはいないのですが、こんな具合になるのではないかと。
> Dim i As Long
>    
> For i = 1 To Range("B1")    
>     Worksheets.Add After:=Worksheets(Worksheets.Count)
      Worksheets(Worksheets.Count).Select　'AddしているからWorksheets.Countは一番最後の数字
      Worksheets(Worksheets.Count).Name=Worksheets("A列のあるシート名").Cells(i,1).Value
> Next i

A221様＞できました。
ありがとうございます。
ほんとすごいです！
自分はCells(i,1).Valueのところがでてこないで、途方にくれていました・・・

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