Формирование документа и сохранение на рабочем столе

[Victor123]

Здравствуйте, уважаемые форумчане !!!

Прошу помочь доработать макрос: имеется таблица (на одном листе книги) и шаблон документа (на другом листе), при заполнении таблицы заполняется шаблон, необходимо сохранить документ отдельным файлом на рабочем столе по следующей маске «ФИО текущая дата.xls» так, чтобы были значения вместо формул в ячейках, сохранились параметры печати и не было ограничений при копировании (если более 255 символов в ячейке при копировании самого листа выдает ошибку),
(ФИО содержится в ячейке C5 таблицы), пробовал разные варианты записи макроса.

Sub ДОКУМЕНТ()
'
' ДОКУМЕНТ Макрос
' Макрос записан 23.06.2012 (Виктор)
'
' Сочетание клавиш: Ctrl+я
'
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Иванов Иван Иванович"
Range("C9").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Виктор\Рабочий стол\Иванов Иван Иванович 23.06.2012.xls"_
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Подскажите, пожалуйста, универсальный способ сохранения

"C:\Documents and Settings\" & CreateObject("WScript.Network").Use rName & "\ CreateObject("WScript.Shell").Speci alFolders("Desktop")\" & _
ФИО & "_" & Format(Now, "yymmdd") & ".xls" _

Заранее спасибо !!!

[DiemonStar]

Sub SaveList()
S = [C5] & Format(Date, "DDMMYYYY") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs S
End Sub

оно?

[Victor123]

Спасибо огромное !!!