Hi Dave..........sorry, the failure mode is
Macro stops and editor pops up
Error message says "Cant find project or library"
Cursor highlights the first "Chr" string in the line of code
The Reference window shows
"MISSING Microsoft Access 8.0 Object Library"

Note, on two of the computers that will run this macro, that library checks
in ok, on the third it does not appear at all.....all three of them will run
the macro just fine.

This morning, a second computer failed on that macro at the same point as
the other failure. only difference is this one uses XLXP, the rest all use
XL2k. So now I got three that work fine, and two that don't

I will try changing the code if necessary, but the problem appears systemic,
no?

Vaya con Dios,
Chuck, CABGx3


"Dave Peterson" wrote:

If the user hits cancel, then you'll get an error--unless you're checking for
that:

set mycell = nothing
on error resume next
Set myCell = Application.InputBox(Prompt:="Please select a Vendor by" _
& vblf & vblf & "clicking on their NAME cell", Type:=8).Cells(1)
on error goto 0

if mycell is nothing then
msgbox "user hit cancel"
else
msgbox "user selected: " & mycell.address(external:=true)
end if

=========
But I bet that's not the problem.

What fails?


CLR wrote:

Hi All.........
I have a little Excel program that works fine on three different computers,
and mostly works on a fourth, but one of the macros fails on this line on
the fourth computer...

Set myCell = Application.InputBox(Prompt:="Please select a Vendor by" &
Chr(10) & Chr(13) & Chr(13) & " clicking on their NAME cell",
Type:=8).Cells(1)

All three are Windows XP and Excel 2k

Anybody know why, please?

TIA
Vaya con Dios,
Chuck, CABGx3

--

Dave Peterson