Dim myRange as Range
Dim myRangeData as Variant
Dim myRows as long, myColumns as long, i as long, j as long

Application.Screenupdating = False
myRange = Activesheet.Range(whatever it is)
myRangeData = Activesheet.Range(whatever it is).Value
myRows = UBound(myRangeData,1)
myColumns = UBound(myRangeData,2)

For i = 1 to myRows
TempString = ""
For j = 1 to myColumns
TempString = TempString & myRangeData(i,,j)
next j
TempString = Trim(TempString)
If TempString = "" then
myRange.Rows(i).Interior.Colorindex = 1
end if
next i

regards
Paul


On Mar 14, 2:02 pm, SITCFanTN
wrote:
I've searched previous posts and can't find how to locate the first empty row
between text and color it black between Col A through H. Any help you can
give is appreciated, thank yoiu