Major novice requiring assistance.

Using the following for a button (very basic) but whilst it opens as expected (save as) it doesn't actually save.

Sub Xxxxxx_SaveAs()

Application.GetSaveAsFilename


End Sub


I hear it may be a compatibility issue, but if anyone can provide an alternative to solve my problem, it would be most appreciated.

Cheers