VBA Stack Prob " Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 4 To 200 If Cells(i, "J").Value <> "" And Cells(i, "L").Value = "" Then Cells(i, "L").Value = Date & " " & Time Cells(i, "L").NumberFormat = "d/m/yyyy h:mm AM/PM" End If Next Range("L:L").EntireColumn.AutoFit For i = 4 To 200 If Cells(i, "L").NumberFormat <> "" And Cells(i, "L").NumberFormat = "d/m/yyyy h:mm AM/PM" Then Cells(i, "C").Value = "" End If Next Range("C:C").EntireColumn.AutoFit End Sub"
Solved by T. L. in 25 mins