VBA code to name a document

[gmaxey]

Sub SaveAFile()
Dim path As String
path = "C:\Users\User" & ActiveDocument.Name
With ActiveDocument
.SaveAs FileName:=path
.Close
End With
End Sub