Se você quiser verificar se o intervalo inteiro contém pelo menos uma vez uma célula com texto, então você pode usar:
if WorksheetFunction.CountA(Range("h1:h10")) = 0 then
Cells("h, 1").Interior.Color = vbRed
End If
Mas se você quiser verificar cada célula e colori-la se tiver texto, você poderá percorrer o intervalo como:
For i = 1 To 10
With Cells(i, 1)
If .Value <> "" Then .Interior.Color = vbRed
End With
Next i