A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data
I found the problem and it fixed it.
Originally I have .IgnoreBlank = True
The fix was to set:
.IgnoreBlank = False
IgnoreBlank was ignoring the Formula reference to E12
D12 & E12 I have valuables used for this but changed to show here.
'Macro code to apply the Data Validation.
Range("D12").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= \_
xlBetween, Formula1:="=AND(ISNUMBER(D12),LEFT(CELL(""format"",D12),1)=""D"",OR(ISBLANK(E12),D12<E12)) "
.IgnoreBlank = False
'(removed rest below for simplicity)