Hi Paul
Just looking at your solution, I get an error here
If rK.Cells(K, 1).Interior.ColorIndex <> xlColorIndexNone Then GoTo NextK
where debug shows K=0
Regards
MD
Hi Paul
Just looking at your solution, I get an error here
If rK.Cells(K, 1).Interior.ColorIndex <> xlColorIndexNone Then GoTo NextK
where debug shows K=0
Regards
MD
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote