Saving Word Document in folder name in Excel

[John G]

Has anyone had any luck saving a Word file to a folder named in an Excel file. I already use Excel for my tasks list, and just thought it would be great to save documents as I draft to a client's folder. I got it working in the actual Word document, without the cell reference for the folder, but it is blowing up when I try to use Excel to do the commands in Word. This is what I have:

Sub WordSave() 'Saves open Word file to client folder

Dim wordapp As Object
Dim DocName As String
Dim FolderName As String
Dim FileName As String

Set wordapp = CreateObject("Word.Application")

FolderName = Selection

DocName = wordapp.ActiveDocument.BuiltinDocumentProperties(wdPropertyTitle).Value & ".docx"
FileName = FolderName & DocName


With wordapp.Dialogs(wdDialogFileSaveAs)
.Name = FileName
.Show
End With

End Sub

Thank you.