hi Nick
I thought about this.. Thank for help

Andrzej



U¿ytkownik "Nick Hodge" napisa³ w
wiadomo¶ci ...
Andrzej

Sure

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Columns("A:A"), Target) Is Nothing Then
MsgBox "Value in the cell just changed in column A is " & Target.Value
End If
End Sub


--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Andrzej" wrote in message
...
OK
it's works correctly. Thanks

but one mo
I would like that it will be works, provided that last selected cell
belongs
to first column (only A)
for example last selected cell : A1, A20, A100, A40000 , etc)
Is it possible ??




U¿ytkownik "Nick Hodge"
napisa³
w
wiadomo¶ci ...
Andrzej

You have little choice but to use the Worksheet_Change() event as the
Worksheet_SelectionChange() event, give you the cell being selected
rather
than the one that you have left. You may also do better with a Public
variable, but the Worksheet_Change event would look like this

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Value in the cell just changed is " & Target.Value
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"Andrzej" wrote in message
...
for example.

I write to cell A11 value "hello",
and next:
IF I click "ENTER" or IF I click mouse in any different cell (A15,
B10,
C1... free choice) I wont to display:
MsgBox "Value in your last selected cell = ???"

On this example MsgBox "Value in your last selected cell = hello"

it is very important for me.
I try with event of Private Sub Worksheet_Change(ByVal Target As
Range)
??
but :(

thanks everybody,
Andrzej