Change Event on a named range
 

I have a worksheet with a named range of invoices (Range(A5:X500)). If
anything changes in this range, I want the corresponding cell in the
active row, column(AC) to add today's date and then an event if the
sheet is saved to convert today() to the value of today. Help
appreciated. TIA

Greg

Change Event on a named range
 

Hi

You can do it with the change event of the worksheet

Place the code in the Sheet module

Right click on a sheet tab and choose view code
Paste the code there
Alt-Q to go back to Excel

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A5:X500"), Target) Is Nothing Then
Cells(Target.Row, "AC") = Format(Date, "mm-dd-yy")
End If
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"GregR" wrote in message oups.com...
I have a worksheet with a named range of invoices (Range(A5:X500)). If
anything changes in this range, I want the corresponding cell in the
active row, column(AC) to add today's date and then an event if the
sheet is saved to convert today() to the value of today. Help
appreciated. TIA

Greg

Change Event on a named range
 

Ron, thank you very much, again

Greg