Hi,

I have the following code so that when I select a cell in cells A7:A500 it
automatically enter the date, this takes place on 150 sheets in the workbook
for stock control, can I ammend this code or add to it so that when the cell
has been filled with the date it will automatically revert back to sheet 1
which is called Index of Stock.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A500")) Is Nothing Then Target.Value = Date
End Sub

Many thanks