Sub Save_Sheet()
Dim strNom As Variant
ChDir "C:\Documents and Settings\Administrator\Desktop\nina\Paid invoices"
toto = Name & Range("B10") & Format(Range("G5"), " yyyy-mm-dd")
strNom = Application.GetSaveAsFilename(toto, "Simple Invoice (*.xls),*.xls")
If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If
End Sub