Hi!
I want the user to decide the name of the file, but with the code that I have now it saves the excel as "fname".
Help Thanks!
Private Sub CommandButton1_Click()
Dim fname
fname = InputBox("Enter date and name of file")
fname = fname & ".xlsm"
ActiveWorkbook.SaveAs Filename:="C:\Material Inspection\Material Request\fname"
ThisWorkbook.Close
End Sub
Bookmarks