Assign .value with the Mouse
 

Hi,

I have established on another ng that just as I thought there is no way to
get an inputbox to close using code, its the ok button or the enter key or
nothing..

So back to code, is there a way other than inputbox to prompt the user to
click on the desired cell and once a selection is made for the code to move
on to the
next stage ? using the content of the selected cell to assign a value to a
variable.

MAS

Assign .value with the Mouse
 

Hi
one idea could be using the worksheet_selectionchange
event. e.g. put the following code in your worksheet
module:


Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If Intersect(Target, Me.Range("A1:A100")) Is Nothing _
Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub

MsgBox Target.Value

End Sub

-----Original Message-----
Hi,

I have established on another ng that just as I thought
there is no way to
get an inputbox to close using code, its the ok button or
the enter key or
nothing..

So back to code, is there a way other than inputbox to
prompt the user to
click on the desired cell and once a selection is made
for the code to move
on to the
next stage ? using the content of the selected cell to
assign a value to a
variable.

MAS



.