Добрый день!  
 
Есть парсер, который вызывается n-ное кол-во раз из другой фунции:  
 
Dim oIE As Object  
Dim oSheet As Excel.Worksheet  
Dim jjj As DataObject  
Dim wb As Workbook  
Set wb = Workbooks("fs_pars.xlsm")  
Set jjj = New DataObject  
Set oIE = CreateObject("internetexplorer.application")  
oIE.Navigate "с:\temp\" & page_s & "index.html"  
Do While (oIE.ReadyState <> 4)  
Loop  
oIE.Visible = 0  
jjj.SetText oIE.document.Body.innertext  
jjj.PutInClipboard  
Application.DisplayAlerts = False  
Set oSheet = wb.Worksheets.add()  
oSheet.Name = "Temp"  
wb.Worksheets("Temp").Activate  
wb.Worksheets("Temp").Cells.NumberFormat = "@"  
wb.Worksheets("Temp").Cells(1, 1).Select  
wb.Worksheets("Temp").Paste  
Set jjj = Nothing  
oIE.Quit  
Set oIE = Nothing  
If page_s = "" Then page_s = "1"  
End Sub  
 
Он работает, но переодически выдаёт ошибку на строчке jjj.PutInClipboard:  
Run-time error '-2147221040(800401d0)':  
DataObject:PutInClipboard Ошибка при вызове OpenClipboard  
 
Подскажите в чём ошибка пожалуйста!

Добрый день! подскажите, как задать диапазон в самой функции! Сейчас выглядит так:  
 
Dim iSource, iRegion As Range  
.  
.  
.  
Set iSource = Worksheets("q").Range("A:A")  
Set iRegion = iSource.Find(What:=str_tit1, LookIn:=xlValues, LookAt:=xlPart)  
 
ищет по всему листу q, но надо только в столбце A ((((((  
 
Спасибо!