I've suddenly started getting an Error 13 - Type Mismatch on this code, which is odd because it's worked fine for weeks;
Private Sub Worksheet_Activate()
Dim ThisCell2 As Range
Range("K2").Formula = "=TODAY()"
Range("K4:K44").ClearContents
For Each cell In Range("J4:J44")...