Copy time scale to excel by vba.