Leigh, it did not work. It errored here "For Each rngRow In rngAreas.Rows"