Re: Error after code is run

Hi,

I have just had it again with this code...

vmyComma = InStr(8, Me.txt_PrtNumber.Value, ",")

If vmyComma = 0 Then
Set LookupRange =
Workbooks("Logistics_Cost_TM_Input.xls").Worksheets("Local
Parts").Range("A2:B65536")

res = Application.VLookup(frm_InputTM.txt_PrtNumber.Value,
LookupRange, 2, 0)
If IsError(res) Then
'look as a number:
res =
Application.VLookup(CDbl(frm_InputTM.txt_PrtNumber.Value), _ LookupRange, 2,
0)<==== On this line ???

--
Les


"Jim Rech" wrote:

except at the end when i want to close it

Close what? The workbook? Look at your Workbook Before_Close code in the
ThisWorkbook module if so.

--
Jim
"Les" <Les@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:3262D393-7A7C-4185-BBAC-CC6334C2C2AA@xxxxxxxxxxxxxxxx
| Hi all,
|
| i have code that runs perfectly and does all that i want it do, except at
| the end when i want to close it, i get an error message "Run-Time error
'424'
| Object required".
|
| When i F8 my way through it runs perfectly
|
| it is driving me crazy as i cnnot find the problem !!!
|
| Any help would be welcomed with much happeness.
| --
| Les


.