批量创建指定名称的工作簿，这回不用伤脑筋了

Sub newbooks()

Dim i&, p$, temp$

On Error Resume Next

'忽略代码运行中的错误，避免存在异常名称工作簿等问题时，代码运行中断。

Application.ScreenUpdating = False

'关闭屏幕刷新

p = ThisWorkbook.Path & "\"

' 取得当前工作薄所在路径

For i = 1 To Cells(Rows.Count, 1).End(3).Row

'循环读取A列数据

temp = Cells(i, 1) & ".xlsx"

'temp是完整的含文件后缀的工作薄名称

With Workbooks.Add

'新建工作薄

.SaveAs p & temp

'保存工作薄，p & temp是要保存的文件的名称

.Close False

'关闭工作薄

End With

Next

Application.ScreenUpdating = True

'恢复屏幕刷新

End Sub

Application.ScreenUpdating = False

意思是关闭屏幕刷新，如果你不想看到工作薄从创建到关闭的整个画面过程，就使用它；通常，关闭屏幕刷新有助于提高代码的运算效率。