Thank you, Pete.
I know how to retrieve cell value now.
Do you know how to get Windows notification that user has selected another
cell (that another cell has became ACTIVE)?
My code is already hooked up to Windows.
Jack

"Pete Winnard" wrote in message
...
it looks like the lines
wkb.Worksheets(1).Cells(10, 10).Select
MsgBox ActiveCell.Value
are programatically selecting the cell I 10 and showing the value of that
try putting something in i10 and see if it gives you a value

Pete
"Jack" <replyto@newsgroup wrote in message
...
Hello,
I've asked that question before but that thread appears dead
now.
My applications is developed in vbasic5.
I need for it to get Windows notification when user clicks on the cell
and
retrieve the cell value.

I did exactly as Rob van Gelder advised me in the another thread.
1. I installed Excel and load the reference to Excel Object Library in
my
vbasic5 code.
2. I created Class1 module and put the following code in there.
---------------
Public WithEvents app As Excel.Application

Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
MsgBox "Selection Changed"
End Sub
--------------------
3. I put the another code in Form_Load of my app:
--------------------
Dim cls As New Class1, wkb As Excel.Workbook

Set cls.app = New Excel.Application

Set wkb = cls.app.Workbooks.Add
wkb.Worksheets(1).Cells(10, 10).Select
MsgBox ActiveCell.Value
wkb.Close
cls.app.Quit
Set cls.app = Nothing
Set cls = Nothing
-------------------

When I start my app I have message: "Selection changed" (although I did
nothing to my Excel sheet) followed by the empty message box (MsgBox
ActiveCell.Value).
When I select another cell in Excel there is not any notification my app
is
aware of.
It looks like ActiveCell.Value is not able to retrieve the cell value

What I need is:
1. Get notified the user clicked on Excel cell
2. Retrieve the value of that cell

Please help,
Jack

"Rob van Gelder" wrote in
message
...
Jack,

You'll probably need a reference to Excel Object Library.

To answer your other e-mail

In a class module (in this example called Class1)
Public WithEvents app As Excel.Application

Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As
Range)
MsgBox "Selection Changed"
End Sub


Then somewhere in your code:
Sub test()
Dim cls As New Class1, wkb As Excel.Workbook

Set cls.app = New Excel.Application

Set wkb = cls.app.Workbooks.Add
wkb.Worksheets(1).Cells(10, 10).Select

wkb.Close
cls.app.Quit
Set cls.app = Nothing
Set cls = Nothing
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Jack" <replyto@newsgroup wrote in message
...
Thank you, but I need more help.
I tried your line in my vbasic5 but it is complaining about
ActiveCell
:
"Variable not defined"
I guess I need to load some reference or component. What is it?
Jack

"Rob van Gelder" wrote in
message
...
Jack,

MsgBox ActiveCell.Value


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Jack" <replyto@newsgroup wrote in message
...
Hello,
I am not user of Excel and I am not familiar with it
at
all.
I am programming in visual basic 5 and I've never used VBA.
For my vbasic5 code I need to retrieve the content of the Excel
cell
user
has clicked on.
Please advise how can I do that.