运行每个范围单元循环时避免错误？

I have written the function below. Usually it works fine. But when r is Nothing I get an error message on the line For Each c In r.Cells telling me that "Object variable or With block variable not set".I have written the function below. Usually it w