Ok Guys.........
Apparently this particular excel file, REQUIRES that "Microsoft Access 8.0
Object Library", as it does not show up in my Reference list when I start
Excel 2k, but is there as soon as I open this file. Other macros in that
file work fine on the errant computers. Neither of he errant computers have
Microsoft Access installed, while all of the :good" computers do have Access
installed......therefore the Library is available and all is well with them.
Must I have Access installed on each computer in order to be able to run
this file with this macro in it?..........
There is another macro in this file that opens an ACCESS file and imports
it. But that is a Monthly Maint macro and not needed to be run by individual
users.
Here's the complete macro.....the debugger highlights the first "Chr" in the
line starting with " Set myCell = Application.InputBox"
Sub SelectVendor()
Sheets("DATA").Select
Call ReturnToTop
Range("B12").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B12"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim myCell As Range
Set myCell = Nothing
On Error Resume Next 'cancel will cause an error
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)
On Error GoTo 0
If myCell Is Nothing Then
MsgBox "You didn't select a cell!"
Sheets("ReportCard").Select
Range("a1").Select
End
Else
MsgBox "You selected Vendor: " & Chr(13) & Chr(13) & Chr(10) &
myCell.Value 'Address(external:=True)
'MsgBox "You selected: " & myCell.Address(external:=True)
End If
myCell.Select
Selection.Offset(0, -1).Copy
Sheets("ReportCard").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Any advice would be appreciated......
Tks,
Vaya con Dios,
Chuck, CABGx3