Auto update all dates in a column to todays date on workbook open

Originally Posted by smorri25

Yep, you were right. The sheet reference was wrong. It works now!

I've tried adding to the code as I would like it if only the cells on "open" tasks update with the current date. Immediately to the left of each dated cell there is a cell containing either "Open" or "Closed". So the dated cell (column B) should only update if the Open/Closed cell (column A) contains "Open". Here is my attempt at the code:

Private Sub Workbook_Open()
Dim rng As Range
Set rng = Worksheets("Task and Issue Tracking").Range("B:B")
For Each cell In rng
If ((cell.Value < Date) And (IsDate(cell.Value))) And (ActiveCell.Offset(-1, 0).Value = "Open") Then
cell.Value = Date
End If
Next cell
End Sub

Unfortunately this doesn't work. Any suggestions on what I'm doing wrong would be great!

Cheers, Sam

Any suggestions guys?