jeffmoseler
Well-known Member
- Joined
- Jul 16, 2004
- Messages
- 540
Here is the macro. I used to know how to do this kind of thing very easily, but it has been a while. It doesn't give any errors, it just won't delete the contents if the value is FALSE.
Dim dte As Date
dte = Date
If Range("I10") = "TRUE" Then
Range("E10").ClearContents
Else
Range("E10") = dte
End If
Dim dte As Date
dte = Date
If Range("I10") = "TRUE" Then
Range("E10").ClearContents
Else
Range("E10") = dte
End If