OK, I figured out what I was doing wrong. You have to loop through and
select each cell as you go to pull out the formatting and other
contents. In other words, something like this won't work:

Dim CurCell As Variant
Dim xlSht As Excel.Worksheet