VBA to check 10 ranges to see if they are empty excel 2003

[AC]

I have 10 ranges in my workbook rang1, rang2……………… each range is a 10x10 block of cells
I need to check and see if the ranges are empty, if they are put a ? mark in the ranges
Thanks

 

[shg]

One way:

    Dim v As Variant
 
    For Each v In Array("rang1", "rang2", "rang3")
        If WorksheetFunction.CountA(Range(v).Value2) = 0 Then Range(v).Value2 = "?"
    Next v

 

[AC]

Thanks, that works

 

[shg]

You're welcome.