Saving a new worksheet

The programming below creates a new file name from the information in the active workbook

The file name is created

The correct name is displayed in the save as window

But when the save button is selected the save as window disapears, but the workbook is not saved

Can to tell me what I have missed



Sub SaveReport()

Dim VisitNo As String
Dim SiteName As String
Dim SaveName As String
VisitNo = Sheets("DataSheet").Range("H31").Value
SiteName = Sheets("DataSheet").Range("H40").Value
SaveName = SiteName & "-Service Report-" & Date & "-Visit-" & VisitNo

Worksheets("ReportSheet").Activate

Application.GetSaveAsFilename (SaveName)


End Sub