Works great! Thanks a lot.
I understand the "On Error" sequence, but am having trouble with

If Not rng1 Is Nothing Then
With rng1
.Copy Destination:=rng2
.Delete
End With
End If

I understand the "with" statements. What is the "If Not rng1 Is Nothing
Then" statement doing?

Norman Jones wrote:
Hi Peanburn,

As an example of selecting all rows on the active sheet which are blank in
column A, copying these rows to another sheet and then deleting the original
blank rows, try something like:


--
Message posted via http://www.officekb.com