Macro range

[puiuluipui]

Hi, i need this code to run from "A5".
Can this be done?
Thanks!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
N = Target.Row
If Me.Range("A" & N).Value <> "" Then
With Me.Range("B" & N)
If .Value = "" Then
..Value = Now
End If
End With
End If
End If
enditall:
Application.EnableEvents = True
End Sub

 

[Jarek Kujawa]

try to replace

If Target.Cells.Column = 1 Then

with

If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then

 

[Dave Peterson]

Add

if target.row < 6 then exit sub

right near the top.

 

[puiuluipui]

Its working! Thanks!

"Jarek Kujawa" a scris:

try to replace

If Target.Cells.Column = 1 Then

with

If Target.Cells.Column = 1 And Target.Cells.Row = 5 Then

 

[puiuluipui]

Its working! Thanks!

"Dave Peterson" a scris:

Add

if target.row < 6 then exit sub

right near the top.