Option Explicit
Sub NewFile()
Dim i As Long, lr As Long, path As String
Dim wb As Workbook
path = Range("B2")
lr = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lr
Set wb = Workbooks.Add
wb.SaveAs path & "\" & Range("A" & i) & ".xlsm"
Next i
End Sub
i want create a new excel file