Hi All,

Having some problems with the below - the line starting with 'se
findit...' is returning the error Subscript out of range.

Have checked, double checked and triple checked the path names and the
are correct, and the variable 'SKU' contains the correct value.

Can open up the 'vintages - current' workbook and do the find, whic
works, but this causes problems further down the track.

Would appreciate any assistance you're able to offer.

Thanks,
Paul




Sub InsertItems()

Dim line As Integer


line = 18
SKU = Range("B" & line)

'Find SKU if it is in supercession list
Set findit = Workbooks("G:\Logistics\Product Order Form\Vintages
current.xls").Sheets("Sorted By Materia
Description").Range("a:a").Find(SKU

--
Paul Morri
-----------------------------------------------------------------------
Paul Morris's Profile: http://www.excelforum.com/member.php...fo&userid=2399
View this thread: http://www.excelforum.com/showthread.php?threadid=37618

If would be helpful if you posted the code that it causing the
problem.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Paul Morris"
wrote
in message
...

Hi All,

Having some problems with the below - the line starting with
'set
findit...' is returning the error Subscript out of range.

Have checked, double checked and triple checked the path names
and they
are correct, and the variable 'SKU' contains the correct value.

Can open up the 'vintages - current' workbook and do the find,
which
works, but this causes problems further down the track.

Would appreciate any assistance you're able to offer.

Thanks,
Paul




Sub InsertItems()

Dim line As Integer


line = 18
SKU = Range("B" & line)

'Find SKU if it is in supercession list
Set findit = Workbooks("G:\Logistics\Product Order
Form\Vintages -
current.xls").Sheets("Sorted By Material
Description").Range("a:a").Find(SKU)


--
Paul Morris
------------------------------------------------------------------------
Paul Morris's Profile:
http://www.excelforum.com/member.php...o&userid=23996
View this thread:
http://www.excelforum.com/showthread...hreadid=376186

Hi Chip,

I did, it's:

Set findit = Workbooks("G:\Logistics\Product Order Form\Vintages
-current.xls").Sheets("Sorted By Material
Description").Range("a:a").Find(SKU)


Thanks,
Paul


--
Paul Morris
------------------------------------------------------------------------
Paul Morris's Profile: http://www.excelforum.com/member.php...o&userid=23996
View this thread: http://www.excelforum.com/showthread...hreadid=376186