Quote Originally Posted by BigDawg15 View Post
Tee51,

Try changing
Set Rng = Worksheets("Sheet1").Range("A2")
to
Set Rng = Worksheets("Sheet3").Range("A2")
.

That should do it.

BigDawg15

No luck, cleared out sheet3 Column A.