Excel 2007 вкладка Имя изменения

Question

я хочу изменить имена вкладок книги с первой 6 символа клеток A1

sheet1 клетки A1 248450 Footage 16-12-2013 - К - 18-12-2013

sheet2 ячейки A1 254278 Видеоматериала 16-12-2013 - К - 18-12-2013

Лист3 клетка A1 248789 кадров из 16-12-2013 - TO - 18-12-2013

Лист4 клетка A1 248125 ОТ 16- Футажей 12-2013 - TO - 18-12-2013

вкладка изменение названия как ниже

имя Лист1 248450

sheet2 имя 254278

Sheet3 имя 248789

Лист4 имя 248125

Answer 1

Это должно работать

Sub Macro1() 
Sheets("Sheet1").Name = Left(A1,6) 
Sheets("Sheet2").Name = Left(A1,6) 
Sheets("Sheet3").Name = Left(A1,6) 
Sheets("Sheet4").Name = Left(A1,6) 
End Sub