如果单元格为空，则用红色填充单元格-LEN（TRIM（动态单元格参考）功能不起作用

Question

我无法提取以下代码。它应在循环中向单元格（xRowCrossDiag，xColCrossDiag）添加条件格式。但是vba不断给我我无法解释的错误消息。我认为我对LEN（）/ TRIM（）的输入做错了。 有什么建议吗？

Dim xRowCrossDiag as Long, xColCrossDiag as Long

Do Until xColCrossDiag > 10

    With Sheets("Database_COSD").Cells(xRowCrossDiag, xColCrossDiag)
        .FormatConditions.Add Type:=xlExpression,Formula1:="=LEN(TRIM(.address))>0" 'ERROR IN THIS LINE
    End With

Loop