VBA to execute macro on A column cell selection

[shiva_reshs]

Hi,

I have below code, which execute Now() code when user hit ctrl C in any of the 3 sheet noted in the code.
But how can I restric the code to execute only when current sheet is one of three below with cell selection only in column A and not in another column.

Sub Time()

Dim cursht As String
cursht = ActiveSheet.Name
   If cursht = "AB" Or cursht = "BC" Or cursht = "DC" Then
      ActiveCell.Offset(0, 15).Value = Now()
ActiveCell.Copy
   Else
Selection.Copy
   End If

End Sub

[sweep]

Does this help?

Sub Time()

Dim cursht As String
cursht = ActiveSheet.Name
   If (cursht = "AB" Or cursht = "BC" Or cursht = "DC") And Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then
      ActiveCell.Offset(0, 15).Value = Now()
ActiveCell.Copy
   Else
Selection.Copy
   End If

Application.CutCopyMode = False

End Sub

[lancer102rus]

...If (cursht = "AB" Or cursht = "BC" Or cursht = "DC") and (ActiveCell.Column = 1) Then...

[shiva_reshs]

Thanks.. Both code works well.