Добрый вечер уважаемые!
есть вопрос как можно в автоматическом режиме собрать значения сначала с 1 листа строка 1, затем со второго листа строка 1, и с третьего листа строка 1, потом с 1 листа строка 2 и.т.д в столбик на новом листе пример в файле

AndreTM,
> Почему-то вы начали "собирать" с четвёртой строки листа1, а не с первой :)
малость промахнулся
для меня автоматическом режиме это все что угодно только не ручками.

порылся в интернете нашел код
Private Sub Worksheet_Activate()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
Debug.Print sh.Name
If sh.Index <> ThisWorkbook.ActiveSheet.Index Then
Cells(sh.Index, 1).Value = sh.Name
Cells(sh.Index, 2).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-1],""!$A$1""))"
Cells(sh.Index, 3).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-2],""!$B$1""))"
Cells(sh.Index, 4).FormulaR1C1 = "=INDIRECT(CONCATENATE(RC[-3],""!$C$1""))"
End If
Next sh
End Sub

может кто нибудь подправит?
он собирает так как надо но только по первой строчке, а хотелось бы чтоб остальные подсобрал.

отбой
решил проблему