Hi
I have this in my Excel Spreadsheet, the point of this code is when I put a value in one cell in records the date in the cell next to it.
The code works but it does not work for Cells "V & W" see part highlighted in RED
I am at below novice with VB so be Gentle with me
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = Range("F2:F65000").Column Then
Cells(.Row, "G").Value = Int(Now)
End If
If .Column = Range("H2:H65000").Column Then
Cells(.Row, "I").Value = Int(Now)
End If
If .Column = Range("J2:J65000").Column Then
Cells(.Row, "K").Value = Int(Now)
End If
If .Column = Range("L2:L65000").Column Then
Cells(.Row, "M").Value = Int(Now)
End If
If .Column = Range("N2:N65000").Column Then
Cells(.Row, "O").Value = Int(Now)
End If
If .Column = Range("P2:P65000").Column Then
Cells(.Row, "Q").Value = Int(Now)
End If
If .Column = Range("R2:R65000").Column Then
Cells(.Row, "S").Value = Int(Now)
End If
If .Column = Range("T2:T65000").Column Then
Cells(.Row, "U").Value = Int(Now)
End If
If .Column = Range("V2:T65000").Column Then
Cells(.Row, "W").Value = Int(Now)
End If
End With
Next Cell
End Sub
Any help would be appreciated
Thanks
Shaun
Bookmarks