как одновременно брать и записывать данные из разных книг?

Здравствуйте! помогите пожалуйста!  
мне нужно скрыть диапазон строк чрез VBA  
нашла вот этот метод:  
Rows(«3:5»).Hidden = True  
Но у меня первая цифра она в виде переменной, так как диапазон меняется..помогите сделать  
что то должно быть в таком виде:  
Rows(«chet:5»).Hidden = True

Подскажите пожалуйста почему он вот этот цикл выполняет по полчаса  
For j = 1 To 5  
 
Worksheets("по_территориям").Cells(j + 9, 2).Value = zab(j)  
 
Next j