Date/User stamp for named range

[roden_uk]

Hi,

I'm currently using the following code to stamp a date and username for any rows changed.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
Set myRange = ActiveCell

If Target.Column <= 13 and Target.row >= 2 Then

Cells(Target.Row, "N").Select
ActiveCell.Offset(0, 0) = Date
ActiveCell.Offset(0, 1) = Environ("USERNAME")

myRange.Select

End If
End Sub

How can i change this so it applies to a named workbook range (in this case 'outstanding_entries') rather than anything which is <= 13 columns and >= 2 row?

Any help would be grateful!

Regards

James

[Palmetto]

Please Login or Register  to view this content.

[roden_uk]

Hi thanks for your help.

The code seems to be setting the named range correctly. However, when I change something in a row in the specified range, the system hangs trying to stamp the username.

the code i'm using is:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("outstanding_entries")) Is Nothing Then

Cells(Target.Row, "N").Select
ActiveCell.Offset(0, 0) = Date
ActiveCell.Offset(0, 1) = Environ("USERNAME")

End If

End Sub

Any ideas why this is?

[martindwilson]

works for me.

[roden_uk]

I worked it out.

The named range i was referencing was a dynamic range, which encapsulated the columns the VBA code would write to, therefore it would continually write to the spreadsheet and was stuck in a loop.

Thanks for all your help!

[DonkeyOte]

roden_uk,

I am glad you have a resolution however I would ask you edit your posts and add CODE tags around your VBA so as to adhere to the Forum Rules.