save excel filename based on Input box and allow user to select path

[jaywebb846]

Hi I am trying to get to a point where my users can manipulate the data then force them to create a file name based on info retrieved from an input box and allowing them to select a path and save the file to a new location. I have it sort of working but it is throwing an error a type mismatch error. Also i would like to be able to force them to use the box and not hit cancel or if they hit cancel it just goes back to the spreadsheet.

 

[JoeMo]

If you have a question or need some help, post your code, tell us what you want it to accomplish and what part(s) of the code you want help on.

 

[jaywebb846]

If you have a question or need some help, post your code, tell us what you want it to accomplish and what part(s) of the code you want help on.

This is where I am so far. I get a type mismatch error on the section in red. Also need to know how to prevent user from just cancelling the input box or how to handle error if it is cancelled and stay in the work book

' Macro3 Macro
Dim fname As String
Dim fpath As String
'Dim file_name As Variant


'Get file name from user input
fname = InputBox("Create a Unique name to this Event or game please")
Application.GetSaveAsFilename fname
'Set current path
fpath = ActiveWorkbook.Path
If fname <> False Then
ActiveWorkbook.SaveAs ActiveWorkbook.Path '& fname & ".xls"
Set wbSource = ActiveWorkbook
MsgBox "File Saved as: " & fpath & "" & fname & ".xls"
' MsgBox "File Saved!"
End If






End Sub

 

[JoeMo]

I'm a bit confused by your code. Is the input box for the user to enter a filename? If yes, will it include a file extension? Are you using GetSaveAsFilename to allow the user to determine the file path? If yes, then why are you assigning fpath to the active workbook's file path? Can you provide some more details on what you want the code to accomplish?