Asking How Many Workbooks to Create

[999HelpPlease]

I need to create a VBA that asks how many workbooks we want to create and then save them numbering them 1.xlsx to however many we end up with.

I have started the macro but I only know how to write it using this and it only gives me 10. I need it to ask how many we are going to create.

Sub 2()
Dim i As Double
For i = 1 To 10
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & i & ".xlsx"
ActiveWorkbook.Close
Next
End Sub

I also have it this way


Dim ProceedStatus As String
ProceedStatus = InputBox("Do you want to create a new workbook ? Yes / No")
Do While LCase(ProceedStatus) = "yes"
Workbooks.Add
ProceedStatus = InputBox("Do you want to create a new workbook ? Yes / No")
Loop
End Sub

They both do a part but neither really work.

Can someone help me out?

 

[999HelpPlease]

The question comes up but it doesn't open any workbooks or save any workbooks.

 

[MattH1]

Using the other code, it may be saving them but you may not be seeing it as it happens so fast. Try setting an exact file path to follow so you can trace if it saves. It may be saving in a location you're not familiar with.