You can copy the value to the clipboard by taking the same course and then
copying the cell, so

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Hidden Sheet").Range("A1").Value = Target.Address
Worksheets("Hidden Sheet").Range("A1").Copy
'It's now on the clipboard
End Sub

You may do better to put this over to a standard sub so you can run it from
a button or similar, the SelectionChange() event may now be overkill

Sub CopyAddressToClipBoard()
Worksheets("Hidden Sheet").Range("A1").Value = Selection.Address
Worksheets("Hidden Sheet").Range("A1").Copy
'It's now on the clipboard
End Sub

What you do after this is beyond me as I don't know the application you are
looking to paste it into.

If you can't automate the application at all then you may be able to
automate the last step, but that's over to you

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
HIS


"up2you" wrote in
message ...

Hi Nick,
Thanks for your help but,
i can not use this for my application. for example,
there is a value in cell B4,
what i want is when i click this cell,
copy this cell's address B4 to the clipboard,
then i will open other application (unigraphics CAD program)
to assign or paste this B4 address to the place in UG window.

So i need to copy B4 address to the clipboard to use later for other
application for pasting..

Do you have any idea for the code?


--
up2you
------------------------------------------------------------------------
up2you's Profile:
http://www.excelforum.com/member.php...o&userid=33468
View this thread: http://www.excelforum.com/showthread...hreadid=533502