I have values from the RANGE A1 to A100. I'm trying to find out a way to
click on one of these cells with my mouse to send the value to a control
textbox .
any idea?

On Sep 19, 7:44 pm, Barb <B...@discussions.microsoft.com> wrote:
> I have values from the RANGE A1 to A100. I'm trying to find out a way to
> click on one of these cells with my mouse to send the value to a control
> textbox .
> any idea?

In the worksheet module of the sheet you are wanting to apply this to,
place something like this in the Worksheet_Change event. Edit the
textbox's name accordingly. HTH

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
ActiveSheet.DrawingObjects("Text Box 3").Text = Target.Text
End If
End Sub