Try this instead

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

Set myCell = myCell.Resize(1)

"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