title: vba saving word file to created folder
body: <p>I have written the code below, currently it creates a folder. However I would like to save the same word doc to that folder. Any pointers on where I am going wrong??</p>
  
  <p>Thanks  </p>
  
  <pre><code>Sub newfold()
      Dim strNewFolderName As String
      strNewFolderName = "New Folder " &amp; (Month(Now())) &amp; " " &amp; Year(Now)
      If Len(Dir("c:\Users\Jabaar\Documents\" &amp; strNewFolderName, vbDirectory)) = 0 Then
          MkDir ("c:\Users\Jabaar\Documents\" &amp; strNewFolderName)
      End If 
      Dim PathName As String
      PathName = ("New Folder " &amp; MonthName(Month(Now())) &amp; " " &amp; Year(Now))
      ActiveDocument.SaveAs "c:\Users\Jabaar\Documents\" &amp; "(strNewFolderName)" + ".doc"
  End Sub
  </code></pre>