This works for me:
as did this:sFileSaveName = Application.GetSaveAsFilename(InitialFileName:="C:\blahblah\500 worst Songs\qwerty", fileFilter:="Excel Files (*.xlsx), *.xlsx")
sFileSaveName = Application.GetSaveAsFilename(InitialFileName:="C:\blahblah\500 worst Songs\qwerty.xlsx", fileFilter:="Excel Files (*.xlsx), *.xlsx")