когда-то именно Игорь подсказал CreateObject("WScript.Shell").SpecialFolders("Desktop")

очень рад что моя скромная тема привлекла внимание сразу двух гигантеров (Ночь в музее) ЭКСЕЛ'я

Владимир, Игорь - спасибо Вам огромное!

может я неправильно изложил вопрос...

есть код - его задача сохранить копию активного файла на рабочий стол.

у меня рабочий стол  - C:\Documents and Settings\Admin\Рабочий стол

у Саши он - C:\Documents and Settings\Sasha\Desktop

у Иры он - C:\Documents and Settings\User\Рабочий стол

поэтому макрос работал у меня но не работал у Саши и у Иры
а CreateObject("WScript.Shell").SpecialFolders("Desktop") работает у Всех

вопрос: А чему равен C:\Documents and Settings\Admin
?

("WScript.Shell"  ; )  .SpecialFolders - видите, появились лишние точка с запятой, при попытке оформления текста ввиде кода

в этом коде:

Sub Сохранить_на_рабочий_стол()
q = InputBox("Имя?")
If q = "" Then Exit Sub
ActiveWorkbook.SaveAs CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & q & ".xls", FileFormat:=xlNormal
ActiveWorkbook.Close
If Workbooks.Count = 0 Then Application.Quit
End Sub

Рабочий стол = CreateObject("WScript.Shell").SpecialFolders("Desktop")

А чему равен C:\Documents and Settings\Admin
?

Надо с помощью VBA проставить формулы ссылающие на другие листы т.е. ссылки на конкретную ячейку, но что бы был виден адрес ссылки при активации этой формулы, как  при ручной уставновки этой формулы.  
 
Dim d As String  
d = 3  
   Cells(5, 5).FormulaR1C1 = "='" & d & "'!" & Range("C6").Address(0, 0) & ""  
 
-------------  
ActiveCell.FormulaR1C1 = "='2'!R[-1]C[-2]" - это было записано