Trouble when trying to call a sub

[[email protected]]

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....

[Edmund]

End If without If.

Edmund

<[email protected]> wrote in message
news:[email protected]...
> 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....
>

[[email protected]]

No man, there is an If, but when I was copying the code, I deleted the
if.

The code is running perfect, only when I try to call the form method
the error appears.

[Bob Phillips]

Are both macros in the same code module. If the Click code is in a sheet
code module, you need to precede with the sheet codename.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

<[email protected]> wrote in message
news:[email protected]...
> 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....
>

[josuegm]

Man, sorry... but how do I precede with the sheet codename? I didn't
understand...