Error 9 is subscript out of range.
Set cell = Workbooks("0620.Xls").Sheets("d.o.").Range
Set update = Workbooks("0620.Xls").Sheets(b).Range("d26")
choices are
no workbook namd 0620.xls
no sheet name d.o.
no sheet with the name in variable b
Regards,
Tom Ogilvy
Alex ekster wrote in message
...
Tom,
Thank you very much for suggestion. I tried it and it still did not
work.
Thanks,
Alex
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!