Здравствуйте УВ.Форумчане!  
Возникла проблема, нужно получить имена всех листов книги и список имен разрешенных для изменения диапазонов, на листе с которого вызван макрос. На новом листе.  
 
Примерно должно выглядеть так... только я не все знаю как написать, помогите поправить пожалуйста!  
 
Sub reads()  
   Worksheets.Add.Name = "temps"  
   Sheets("temps").Select  
for i = "Первый лист" To "Последний лист"  
Range(Cells(1, i).Value = Sheet.Name  
Next i  
 
for i = "Первый диапазон" To "Последний диапазон"  
Range(Cells(2, i).Value = ActiveSheet.Protection.Name  
Next i  
 
End Sub  
 
Заранее благодарен!