в этом коде:

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]" - это было записано