I'm having trouble viewing the posts in this forum. Instead of seeing
something like:

For Each rCell In Range("D1:D" & _
Range("D" & Rows.Count).End(xlUp).Row)

....the special characters are being replaced with ampersand codes like this:

For Each rCell In Range(&-quot;D1:D&-quot; &-amp; _
Range(&-quot;D&-quot; &-amp; Rows.Count).End(xlUp).Row)

(I hope this shows up correctly)