Automate Excel

The following code will prompt the user for the name of a workbook. It will then create and save a new
workbook with the same name.

Private Sub CommandButton1_Click()
Dim Workbook_Name As String
Dim New_Workbook As Workbook
Set New_Workbook = Nothing
Workbook_Name = InputBox(Prompt:="Workbook Name.", Title:="Enter the WorkBook Name :")
Set New_Workbook = Workbooks.Add
With New_Workbook
.Activate
.SaveAs Workbook_Name
End With

End Sub

To download the .XLSM file for this article, click here

Related posts

• VBA: Test if Workbook is Open, by Workbook Name (3)
• VBA: Macro to Update all Worksheets in Workbook (0)
• VBA: Count the sheets in a Workbook (0)
• Create an In Cell Chart Using VBA (5)
• Adding and Naming Sheets to Excel Workbook (0)