Доброго времени всем.
Суть проблемы - необходимо чтобы при переходе с листа на лист в отдельные ячейки записывались имена листов на которые перешли, вот что у меня получилось:
Модуль "ЭтаКнига"
[vba]Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
lastrow = Worksheets("logs").Range("A60000").End(xlUp).Row
If ActiveSheet.Name <> "Лист 1" Then
ShName = ActiveSheet.Name
Worksheets("logs").Cells(lastrow + 1, 5) = ShName
End If
End Sub
[/vba]
Но по какой то причине имена листов пишутся в одну и ячейку, пока не перезайдешь в книгу, потом в следующей до следующего перезахода. Прошу помощи профессионалов))