End If without If.

Edmund

wrote in message
oups.com...
People, I'm trying to call a sub from a form, but the message "Sub or
Function not defined" appears when compiled.

That is the following code:

Sub Macro1()




For i = 3 To 100



Set oBk = Workbooks.Open(link)

iefile = ActiveWorkbook.Name
Call HTMLText2_Click
sdr = Cells(10, 1).Value
Range(Cells(10, 2), Cells(10, 3)).Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlPasteValues
cmt = Cells(9, 10).Value
sdis = Cells(10, 5).Value
Range(Cells(10, 6), Cells(10, 7)).Select
Selection.Copy
Range("J10").Select
Selection.PasteSpecial Paste:=xlPasteValues
audit = Cells(10, 10).Value
Workbooks(iefile).Close (0)
Cells(i, 12) = sdr
Cells(i, 13) = cmt
Cells(i, 14) = sdis
Cells(i, 15) = audit
End If

Next i

End Sub

--

Sub HTMLText2_Click()
Cells(1, 10) = HTMLText2.Value
End Sub

--

I tried to use the Call Method, and only writing the name of the sub in
the code... But the error still appear.


Somebody help meeeeeeeeeee....