Hi,
"Sheet1" is the sheet which contains your original list. I suspect
you havre called it something different so change "Sheet1" to the tab name of
your sheet.
I should have explained this my original posting - my apologies.

HTH

"equity7252" wrote:

Toppers...

Thanks for the reply. However, I received a "Run-time error '9': Script
out of range" error message at the following code:

Set ws1 = Worksheets("sheet1")