Страницы: 1
RSS
Как быстро переименовать листы в книге
 
Здравствуйте!  
Подскажите пожалуйста, как быстро переименовать листы в книге, присвоив имена от 1 до №.
 
Dim i As Integer, N As Integer  
N = Sheets.Count  
For i = 1 To N  
Sheets(i).Name = i  
Next
 
Спасибо! :)
Страницы: 1
Читают тему
Наверх