Help with Macro Error Message

[Smurfit-Stone]

Hello Board,

I'm trying to get a macros to work...I keep getting the message "Compile Error - Sub or Function not defined" I don't know what this means or how to fix the problem. The macro is as follows: Can anyone tell me what to do about resolving this? Thanks

Sub copypaste()
Dim ldate As String
Dim lcolumn As Integer
Dim lfound As Boolean

On Error GoTo err_execute

'Retrieve date value to search for
*** ldate = Sheets("Kiwi Data").Range("A1").Value

*** Sheets("Production Measures").Select

*** 'Start at column B
*** lcolumn = 4
*** lfound = False

While lfound = False

***
******* 'Encountered blank cell in row 4, terminate search
If en(Cells(4, lcolumn)) = 0 Then
MsgBox "No matching date was found."
Exit Sub
ElseIf Cells(4, lcolumn) = ldate Then

*********** 'Select values to copy from "Kiwi Data" sheet
*********** Sheets("Kiwi Data").Select
*********** Range("E20:E41").Select
*********** Selection.Copy

*********** 'Paste onto "Production Measures" sheet
*********** Sheets("Production Measures").Select
*********** Cells(9, lcolumn).Select
Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:= _
False, Transpose:=False

*********** lfound = True
MsgBox "The data has been successfully copied."
***********

******* 'Continue searching
Else
lcolumn = lcolumn + 1
End If

Wend

On Error GoTo 0

Exit Sub
err_execute:
MsgBox "An error occurred."
End Sub

 

[Smitty]

Shouldn't this be Len? You're missing the L.

If en(Cells(4, lcolumn)) = 0 Then

HTH,

 

[VoG]

Should it be?

If Len(Cells(4, lcolumn)) = 0 Then

 

[taurean]

Please check this row, as this raises the error I guess:

If [I][COLOR=red]en[/COLOR][/I](Cells(4, lcolumn)) = 0 Then

 

[Smurfit-Stone]

Thanks guys, it got deleted while trying other things to fix this problem. I've replaced the "L", but I still get the error message. It highlights the "Sub copypaste()" section of the macro...the very beginning. I don't have a clue whats wrong. Please help

 

[taurean]

And what is the error message this time around?

 

[VoG]

With the L replaced, that code compiles OK for me,

 

[Smurfit-Stone]

With the L, replaced, the error is still the same - "Compile Error, sub or function not defined"

 

[Smurfit-Stone]

Runs great now guys....Thanks so much. I love this board.

 

[taurean]

Thats very strange since it compiles correctly here(See Peter's post).
IGNORE Is it the only macro in the module?
Or are you posting "simplified" version of the macro? IGNORE