Dim sPath As String, sFile As String
            Application.ScreenUpdating = False
            sPath = Application.DefaultFilePath & "\"
            If sWks = "" Then Exit Sub
            sFile = InputBox(prompt:="Dateiname:", _
              Default:="c:\ffw\hilfeleistung\*.xls")
            If sFile = "" Then Exit Sub
            ActiveSheet.Copy
            ActiveWorkbook.SaveAs sFile
            Application.ScreenUpdating = True