Issue with automatically saving a file to a folder on my desktop

Here's the SaveAs method text from the help file:

Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName