批量创建工作簿遇到的问题，请教各位前辈

xgy一飞

Sub b()
Dim i&, p$, temp$
On Error Resume Next
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
temp = Cells(i, 1) & ".xlsx"
With Workbooks.Add
.SaveAs p & temp
.Close False
End With
Application.ScreenUpdating = True
Next
End Sub

如果A1-A5的值分别为1，2，3，4，5；则运行结果建立5个工作簿，但是每个工作簿中的工作表太多，好像为255个，请问可以在代码中修改、避免新建这么多的工作表嘛