Sub MovingString()
Cells(1, intAddress).Value = ""
If intAddress 1 Then
'Отображение строки
intAddress = intAddress - 1
Cells(1, - вопрос №2368269
intAddress).Value = «Привет» 'Указываем что данную процедуру нужно вызвать через 1секунду Application.OnTime Now + TimeValue(«00:00:01»), «Лист1.MovingString» End If End Sub Sub Start() 'установка начальной ячейки intAddress = 10 'перерыв начальной ячейки MovingString End Sub где ошибка?