I don't wish to download the file.
I don't wish to download the file.
1. Please give the full error message.
2. When you get the error, click Debug and tell us which line caused the error (highlighted yellw)
3. I qualified my suggestion with an assumption "Assuming the entries in column J are actual numbers (not text)". Can you confirm that those numbers are actual numbers and not text values? For example, what does =ISNUMBER(J12) return?
For Each rArea In Range("H8", Range("H" & Rows.Count).End(xlUp)).SpecialCells(xlConstants, xlNumbers).Areas
I doubt that is the full error message that I asked for. Are you sure it doesn't also say "No cells were found"?1. Run-time error "1004"
That would indicate there are no actual numbers in column H below row 8. Hence my comment above.2.Code:For Each rArea In Range("H8", Range("H" & Rows.Count).End(xlUp)).SpecialCells(xlConstants, xlNumbers).Areas
You say they are numbers but your two answers above are indicating they are not numbers but text that looks like numbers. As I asked before, if you put the formula =ISNUMBER(J12) in a cell on the worksheet, what does that formula return?3. Those are just numbers.