Hi everybody

The problem is as follows:
I need to get a date stamp in a columns b-g everytime my workbook is saved
with a new value in column A. In column A I have made a picklist with seven
different values, and I want to get a date stamp everytime the status of
culumn A is changed. Is there any way I can do this?

Any help would be greatly appreciated!

Kind regards,
Tue

Right click on the worksheet tab that you want to check and select VIEW CODE.
Paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myWS As Worksheet
Set myWS = Target.Parent

If Target.Count 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing Then
myWS.Cells(Target.Row, 2).Value = Date + Time 'Change 2 to the column
you need A=1, B=2, C=3 etc.
End If

End Sub

HTH,
Barb Reinhardt



"Tueanker" wrote:

Hi everybody

The problem is as follows:
I need to get a date stamp in a columns b-g everytime my workbook is saved
with a new value in column A. In column A I have made a picklist with seven
different values, and I want to get a date stamp everytime the status of
culumn A is changed. Is there any way I can do this?

Any help would be greatly appreciated!

Kind regards,
Tue