вы можете создать новый модуль и добавить глобальную переменную, например.
Глобальная запись в виде строки
и в рабочую книгу добавить смену листа
Private Sub Workbook_SheetChange (ByVal Sh As Object, ByVal Target As Range)
Если Запись = "" Тогда
Запись = Sheet1.Range ("a1"). Значение
еще
Запись = Запись & "," & Sheet1.Range ("a1"). Значение
End If
End Sub