Всем привет) Помогите разобраться в чем ошибка.    
Код писал не я, но мне нужно его исправить.  
Собственно,runtime error 424 object required  
ошибка указывает на 2ую строку.Когда наводишь курсор пишет: Set rCol.EntireColumn.Hidden = Falce  
 
Sub HideCol(rCol As Range)  
 Set rCol.EntireColumn.Hidden = True  
End Sub  
 
iCol = 1  
Do Until agR.Cells(1, iCol + 1) <> ""  
  iCol = iCol + 1  
Loop  
 
If agR.Cells(2, iCol).Formula = "Ïëàí" Then Call HideCol(agR.Cells(1, iCol).EntireColumn)