VBA saving one folder to short

[SCCTAS]

Hi All,

I am trying to create a userform that saves itself with a file name based on the contents of a text box and to a location the user decides. I got the first part working okay, but when I go and save the file it saves one folder short of where I choose. For example if I want to save it to H:\Me\Expenses\Toronto Trip\ the file saves to H:\Me\Expenses\. Any help is appreciated!

Private Sub SaveCommandButton_Click()


If EmployeeTextBox.Value = "" Then
SaveCommandButton.Cancel = True
MsgBox "Please enter the employee's name", vbOKOnly
Exit Sub
End If


     With Application.FileDialog(msoFileDialogFolderPicker)
        If EmployeeTextBox.Text = "" Then Cancel = True Else
        .AllowMultiSelect = False
        .Title = "Pick a folder"
        .Show
        If .SelectedItems.Count = 0 Then MsgBox "Operation Cancelled by the user", vbExclamation + vbOKOnly, "List Files": Exit Sub
        strTopFolderName = .SelectedItems(1)
     End With
    
     ActiveWorkbook.SaveAs (EmployeeTextBox.Text)
    
End Sub

 

[shg]

ActiveWorkbook.SaveAs strTopFolderName  & "\" & EmployeeTextBox.Text

 

[SCCTAS]

That worked! Thanks!

 

[shg]

You're welcome.