easier perhaps to replace
Formula1:="=LEN(INDIRECT(ADDRESS(ROW(),COLUMN())))"
with
Formula1:="=len(" & .Address & ")"
so now you only have to deal with the international aspect of 'len'.

BTW, I notice that repeating the format condition setting code adds a
new condition every time.. it might be worth inserting a
.FormatConditions.Delete
before adding another.