Здраствуйте!
Есть вот такой макрос, его надо усовершенствовать.
Именно так что б после его запуска в строке формулы выводилось "= (потом wb.Name)H13" то есть ссылка на другие рабочие листы в этой книге.
Sub makroc()
i = 10
For Each wb In ActiveWorkbook.Sheets
Cells(i + 1, 3).Select
ActiveCell.Formula = wb.Name
i = i + 1
Next
End Sub