Hi, I have these formulas below which go on from rows 4 up to row 1900. The file is huge and lags forever.

I believe if a VBA code is used the file size could be reduced a little bit. These are the formulas I want to convert to a VBA code instead.

=IF(M4="","",IF(M4="Open",1,""))

=IF(Q4="","",IF(Q4="LATE",1,""))

=IF(Q4="","",IF(Q4="TIMELY",1,""))

=IF(K4="","",1)

=IF(P4="","",(IF(P4<=O4,"TIMELY","LATE")))

=IF(G4="","",G4+(7-WEEKDAY(G4)))

Next question is how to combine the new codes with this code I have below.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


If Cells(3, Target.Column) = "Name" And Target <> "" Then
    Target.Offset(0, 254 - Target.Column + 2).Value = Int(Now)
End If

If Cells(3, Target.Column) = "Name" And Target = "" Then
    Target.Offset(0, 254 - Target.Column + 2).ClearContents
End If

End Sub
I appreciate any help I can get.