On Mar 23, 9:24 am, Gary''s Student
wrote:
How about double-click:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Range("B:B"), Target) Is Nothing Then
Exit Sub
End If
If IsEmpty(Target) Then
Exit Sub
End If
Target.Copy Target.Offset(0, -1)
Cancel = True
End Sub

this goes in worksheet code, not a standard module
--
Gary''s Student
gsnu200711



" wrote:
I have what I think is an easy one.

I have a sheet that has about 500 rows. In Column A everything is
blank. In Column B maybe blank, but there are some notes in some of
the cells. What I'm trying to do is IF, there are notes in cell B10
for example I would like the user to beable to click that cell, B10
and have the contents copied from B10 to A10.

The macro would only fire any cell in column B....make sense? Thanks
for your help!!- Hide quoted text -

- Show quoted text -

Perfect...thanks...I like the double click option....Thanks..